[system] / trunk / webwork-modperl / lib / WeBWorK / ContentGenerator / Instructor / ProblemSetList.pm Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1400 Revision 1404
… …
28 28
29 if (defined($r->param('deleteSelected'))) { 29 if (defined($r->param('deleteSelected'))) {
30 foreach my $wannaDelete ($r->param('selectedSet')) { 30 foreach my $wannaDelete ($r->param('selectedSet')) {
31 $db->deleteGlobalSet($wannaDelete); 31 $db->deleteGlobalSet($wannaDelete);
32 } 32 }
33 } elsif (defined($r->param('scoreSelected'))) {
34
33 } elsif (defined($r->param('makeNewSet'))) { 35 }elsif (defined($r->param('makeNewSet'))) {
34 my $newSetRecord = $db->{set}->{record}->new(); 36 my $newSetRecord = $db->{set}->{record}->new();
35 my $newSetName = $r->param('newSetName'); 37 my $newSetName = $r->param('newSetName');
36 $newSetRecord->set_id($newSetName); 38 $newSetRecord->set_id($newSetName);
37 $newSetRecord->set_header(""); 39 $newSetRecord->set_header("");
38 $newSetRecord->problem_header(""); 40 $newSetRecord->problem_header("");
… …
147 CGI::start_form({"method"=>"POST", "action"=>$r->uri}),"\n", # This form is for deleting sets, and points to itself 149 CGI::start_form({"method"=>"POST", "action"=>$r->uri}),"\n", # This form is for deleting sets, and points to itself
148 $table,"\n", 150 $table,"\n",
149 CGI::br(),"\n", 151 CGI::br(),"\n",
150 $self->hidden_authen_fields,"\n", 152 $self->hidden_authen_fields,"\n",
151 CGI::submit({"name"=>"deleteSelected", "label"=>"Delete Selected"}),"\n", 153 CGI::submit({"name"=>"deleteSelected", "label"=>"Delete Selected"}),"\n",
154 CGI::submit({"name"=>"scoreSelected", "label"=>"Score Selected"}),"\n",
152 CGI::end_form(),"\n", 155 CGI::end_form(),"\n",
153 CGI::start_form({"method"=>"POST", "action"=>$r->uri}),"\n", 156 CGI::start_form({"method"=>"POST", "action"=>$r->uri}),"\n",
154 $self->hidden_authen_fields,"\n", 157 $self->hidden_authen_fields,"\n",
155 "New Set Name: ", 158 "New Set Name: ",
156 CGI::input({type=>"text", name=>"newSetName", value=>""}), 159 CGI::input({type=>"text", name=>"newSetName", value=>""}),
Legend:
Removed from v.1400  
changed lines
  Added in v.1404
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9