| 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.25 2004/08/28 14:10:13 jj Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.26 2004/09/04 23:31:46 dpvc 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. |
| … | |
… | |
| 546 | my $checkset = $db->getGlobalSet($r->param('local_sets')); |
546 | my $checkset = $db->getGlobalSet($r->param('local_sets')); |
| 547 | if (not defined($checkset)) { |
547 | if (not defined($checkset)) { |
| 548 | $self->{error} = 1; |
548 | $self->{error} = 1; |
| 549 | $self->addbadmessage('You need to select a "Target Set" before you can edit it.'); |
549 | $self->addbadmessage('You need to select a "Target Set" before you can edit it.'); |
| 550 | } else { |
550 | } else { |
| 551 | my $page = $urlpath->newFromModule('WeBWorK::ContentGenerator::Instructor::ProblemSetEditor', setID=>$r->param('local_sets'), courseID=>$urlpath->arg("courseID")); |
551 | my $page = $urlpath->newFromModule('WeBWorK::ContentGenerator::Instructor::ProblemSetDetail', setID=>$r->param('local_sets'), courseID=>$urlpath->arg("courseID")); |
| 552 | my $url = $self->systemLink($page); |
552 | my $url = $self->systemLink($page); |
| 553 | $self->reply_with_redirect($url); |
553 | $self->reply_with_redirect($url); |
| 554 | } |
554 | } |
| 555 | } |
555 | } |
| 556 | |
556 | |