[system] / trunk / webwork2 / lib / WeBWorK / ContentGenerator / Problem.pm Repository:
ViewVC logotype

Diff of /trunk/webwork2/lib/WeBWorK/ContentGenerator/Problem.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 3054 Revision 3055
1################################################################################ 1################################################################################
2# WeBWorK Online Homework Delivery System 2# WeBWorK Online Homework Delivery System
3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ 3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/
4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.168 2004/11/18 16:00:37 gage Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.169 2004/12/17 16:59:48 gage Exp $
5# 5#
6# This program is free software; you can redistribute it and/or modify it under 6# This program is free software; you can redistribute it and/or modify it under
7# the terms of either: (a) the GNU General Public License as published by the 7# the terms of either: (a) the GNU General Public License as published by the
8# Free Software Foundation; either version 2, or (at your option) any later 8# Free Software Foundation; either version 2, or (at your option) any later
9# version, or (b) the "Artistic License" which comes with this package. 9# version, or (b) the "Artistic License" which comes with this package.
… …
470 $self->{checkAnswers} = $checkAnswers; 470 $self->{checkAnswers} = $checkAnswers;
471 $self->{previewAnswers} = $previewAnswers; 471 $self->{previewAnswers} = $previewAnswers;
472 $self->{formFields} = $formFields; 472 $self->{formFields} = $formFields;
473 473
474 # get result and send to message 474 # get result and send to message
475# my $success = $r->param("success");
476# my $failure = $r->param("failure");
477 my $status_message = $r->param("status_message"); 475 my $status_message = $r->param("status_message");
478# $self->addbadmessage(CGI::p($failure)) if $failure;
479# $self->addgoodmessage(CGI::p($success)) if $success;
480 $self->addgoodmessage(CGI::p("$status_message")) if $status_message; 476 $self->addmessage(CGI::p("$status_message")) if $status_message;
481 477
482 # now that we've set all the necessary variables quit out if the set or problem is invalid 478 # now that we've set all the necessary variables quit out if the set or problem is invalid
483 return if $self->{invalidSet} || $self->{invalidProblem}; 479 return if $self->{invalidSet} || $self->{invalidProblem};
484 480
485 ##### permissions ##### 481 ##### permissions #####
Legend:
Removed from v.3054  
changed lines
  Added in v.3055
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9