| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.72 2006/07/12 01:19:15 gage Exp $ |
4 | # $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.73 2006/07/15 16:31:16 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. |
| … | |
… | |
| 1076 | |
1076 | |
| 1077 | ##### View a set from a set*.def |
1077 | ##### View a set from a set*.def |
| 1078 | |
1078 | |
| 1079 | } elsif ($r->param('view_setdef_set')) { |
1079 | } elsif ($r->param('view_setdef_set')) { |
| 1080 | |
1080 | |
| 1081 | my $set_to_display = $r->param('local_sets'); |
1081 | my $set_to_display = $r->param('library_sets'); |
| 1082 | debug("set_to_display is $set_to_display"); |
1082 | debug("set_to_display is $set_to_display"); |
| 1083 | if (not defined($set_to_display) |
1083 | if (not defined($set_to_display) |
| 1084 | or $set_to_display eq "Select a Set Definition File" |
1084 | or $set_to_display eq "Select a Set Definition File" |
| 1085 | or $set_to_display eq NO_LOCAL_SET_STRING) { |
1085 | or $set_to_display eq NO_LOCAL_SET_STRING) { |
| 1086 | $self->addbadmessage("You need to select a set definition file to view."); |
1086 | $self->addbadmessage("You need to select a set definition file to view."); |