| 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/Instructor/SetMaker.pm,v 1.11 2004/05/15 19:13:43 jj Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.12 2004/05/21 23:38:53 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. |
| … | |
… | |
| 620 | if (not defined($newSetRecord)) { |
620 | if (not defined($newSetRecord)) { |
| 621 | $self->adderrmsg("You are trying to add problems to $localSet, but that set does not seem to exist! I bet you used your \"Back\" button."); |
621 | $self->adderrmsg("You are trying to add problems to $localSet, but that set does not seem to exist! I bet you used your \"Back\" button."); |
| 622 | } else { |
622 | } else { |
| 623 | my $addcount = add_selected($self, $db, $localSet); |
623 | my $addcount = add_selected($self, $db, $localSet); |
| 624 | if($addcount > 0) { |
624 | if($addcount > 0) { |
| 625 | $self->addgoodmsg("Successfully added $addcount problem".(($addcount>1)?'s':''). |
625 | $self->addgoodmessage("Successfully added $addcount problem".(($addcount>1)?'s':''). |
| 626 | " to $localSet."); |
626 | " to $localSet."); |
| 627 | } |
627 | } |
| 628 | } |
628 | } |
| 629 | } |
629 | } |
| 630 | } |
630 | } |