| 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.pm,v 1.98 2004/05/07 18:47:23 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator.pm,v 1.99 2004/05/21 23:38:52 jj 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. |
| … | |
… | |
| 310 | |
310 | |
| 311 | |
311 | |
| 312 | sub addgoodmessage { |
312 | sub addgoodmessage { |
| 313 | my ($self, $message) = @_; |
313 | my ($self, $message) = @_; |
| 314 | $self->addmessage(CGI::div({class=>"ResultsWithoutError"}, $message)); |
314 | $self->addmessage(CGI::div({class=>"ResultsWithoutError"}, $message)); |
|
|
315 | } |
|
|
316 | |
|
|
317 | =item addbadmessage($message) |
|
|
318 | |
|
|
319 | Adds a failure message to the list of messages to be printed by the |
|
|
320 | message() template escape handler. |
|
|
321 | |
|
|
322 | =cut |
|
|
323 | |
|
|
324 | |
|
|
325 | sub addbadmessage { |
|
|
326 | my ($self, $message) = @_; |
|
|
327 | $self->addmessage(CGI::div({class=>"ResultsWithError"}, $message)); |
| 315 | } |
328 | } |
| 316 | |
329 | |
| 317 | =back |
330 | =back |
| 318 | |
331 | |
| 319 | =cut |
332 | =cut |
Parent Directory
| 
Revision Log
| 
Patch