| … | |
… | |
| 973 | CGI::p({},"File name: $sourceFileName "), |
973 | CGI::p({},"File name: $sourceFileName "), |
| 974 | CGI::p({}, $edit_link, " ", $try_link), |
974 | CGI::p({}, $edit_link, " ", $try_link), |
| 975 | CGI::p(CGI::checkbox(-id=>"hideme$cnt", -name=>"hideme$cnt",-value=>1,-label=>"Don't show this problem on the next update",-override=>1)), |
975 | CGI::p(CGI::checkbox(-id=>"hideme$cnt", -name=>"hideme$cnt",-value=>1,-label=>"Don't show this problem on the next update",-override=>1)), |
| 976 | CGI::p(CGI::checkbox((%add_box_data),-override=>1)), |
976 | CGI::p(CGI::checkbox((%add_box_data),-override=>1)), |
| 977 | CGI::p($move_box_data), |
977 | CGI::p($move_box_data), |
| 978 | CGI::hidden(-name=>"filetrial$cnt", -default=>$sourceFileName,-override=>1). |
978 | CGI::hidden(-id=>"filetrial$cnt", -name=>"filetrial$cnt", -default=>$sourceFileName,-override=>1). |
| 979 | CGI::p($problem_output) |
979 | CGI::p($problem_output) |
| 980 | ); |
980 | ); |
| 981 | } |
981 | } |
| 982 | else{ |
982 | else{ |
| 983 | print CGI::div({-class=>"problem libraryProblem used", -align=>"left", -draggable=>"true", -href=>"#", -id=>"$cnt"}, |
983 | print CGI::div({-class=>"problem libraryProblem used", -align=>"left", -draggable=>"true", -href=>"#", -id=>"$cnt"}, |
| … | |
… | |
| 1396 | but you did not select a "Target Set" name as a target.'); |
1396 | but you did not select a "Target Set" name as a target.'); |
| 1397 | } else { |
1397 | } else { |
| 1398 | my $newSetRecord = $db->getGlobalSet($localSet); |
1398 | my $newSetRecord = $db->getGlobalSet($localSet); |
| 1399 | my $otherNewSetRecord = $db->getGlobalSet($otherSet); |
1399 | my $otherNewSetRecord = $db->getGlobalSet($otherSet); |
| 1400 | if (not defined($newSetRecord) or not defined($otherNewSetRecord)) { |
1400 | if (not defined($newSetRecord) or not defined($otherNewSetRecord)) { |
| 1401 | $self->addbadmessage("You are trying to move problems from $otherNewSetRecord to $localSet, |
1401 | $self->addbadmessage("You are trying to move problems from $otherSet to $localSet, |
| 1402 | but that set does not seem to exist! I bet you used your \"Back\" button."); |
1402 | but that set does not seem to exist! I bet you used your \"Back\" button."); |
| 1403 | } else { |
1403 | } else { |
| 1404 | my $addcount = add_selected($self, $db, $localSet); |
1404 | my $addcount = add_selected($self, $db, $localSet); |
| 1405 | my $deletecount = delete_selected($self, $db, $otherSet); |
1405 | my $deletecount = delete_selected($self, $db, $otherSet); |
| 1406 | if($addcount > 0 && $deletecount > 0) { |
1406 | if($addcount > 0 && $deletecount > 0) { |
Parent Directory
| 
Revision Log
| 
Patch