From: Sam H. v. a. <we...@ma...> - 2005-12-18 22:40:52
|
Log Message: ----------- get rid of submitError usage Modified Files: -------------- webwork2/lib/WeBWorK/ContentGenerator: Grades.pm webwork2/lib/WeBWorK/ContentGenerator/Instructor: SendMail.pm ShowAnswers.pm Revision Data ------------- Index: Grades.pm =================================================================== RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Grades.pm,v retrieving revision 1.19 retrieving revision 1.20 diff -Llib/WeBWorK/ContentGenerator/Grades.pm -Llib/WeBWorK/ContentGenerator/Grades.pm -u -r1.19 -r1.20 --- lib/WeBWorK/ContentGenerator/Grades.pm +++ lib/WeBWorK/ContentGenerator/Grades.pm @@ -113,13 +113,6 @@ return \%assocArray; } -sub submission_error { - my $self = shift; - my $msg = join( " ", @_); - $self->{submitError} .= CGI::br().$msg; - return; -} - sub scoring_info { my ($self) = @_; my $r = $self->r; Index: ShowAnswers.pm =================================================================== RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Instructor/ShowAnswers.pm,v retrieving revision 1.16 retrieving revision 1.17 diff -Llib/WeBWorK/ContentGenerator/Instructor/ShowAnswers.pm -Llib/WeBWorK/ContentGenerator/Instructor/ShowAnswers.pm -u -r1.16 -r1.17 --- lib/WeBWorK/ContentGenerator/Instructor/ShowAnswers.pm +++ lib/WeBWorK/ContentGenerator/Instructor/ShowAnswers.pm @@ -38,7 +38,7 @@ my $user = $r->param('user'); unless ($authz->hasPermissions($user, "view_answers")) { - $self->{submitError} = "You aren't authorized to view past answers"; + $self->addbadmessage("You aren't authorized to view past answers"); return; } } Index: SendMail.pm =================================================================== RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Instructor/SendMail.pm,v retrieving revision 1.44 retrieving revision 1.45 diff -Llib/WeBWorK/ContentGenerator/Instructor/SendMail.pm -Llib/WeBWorK/ContentGenerator/Instructor/SendMail.pm -u -r1.44 -r1.45 --- lib/WeBWorK/ContentGenerator/Instructor/SendMail.pm +++ lib/WeBWorK/ContentGenerator/Instructor/SendMail.pm @@ -757,12 +757,6 @@ ############################################################################## # Utility methods ############################################################################## -sub submission_error { - my $self = shift; - my $msg = join( " ", @_); - $self->{submitError} .= CGI::br().$msg; - return; -} sub saveProblem { my $self = shift; |