| 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: webwork2/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.58 2005/10/11 22:06:34 sh002i Exp $ |
4 | # $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.59.2.1 2006/01/11 22:24:29 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. |
| … | |
… | |
| 830 | $urlpath->newFromModule("WeBWorK::ContentGenerator::Instructor::PGProblemEditor", |
830 | $urlpath->newFromModule("WeBWorK::ContentGenerator::Instructor::PGProblemEditor", |
| 831 | courseID =>$urlpath->arg("courseID"), |
831 | courseID =>$urlpath->arg("courseID"), |
| 832 | setID=>"Undefined_Set", |
832 | setID=>"Undefined_Set", |
| 833 | problemID=>"1"), |
833 | problemID=>"1"), |
| 834 | params=>{sourceFilePath => "$sourceFileName", problemSeed=> $problem_seed} |
834 | params=>{sourceFilePath => "$sourceFileName", problemSeed=> $problem_seed} |
| 835 | )}, "Edit it" ); |
835 | ), target=>"WW_Editor"}, "Edit it" ); |
| 836 | |
836 | |
| 837 | my $displayMode = $self->r->param("mydisplayMode"); |
837 | my $displayMode = $self->r->param("mydisplayMode"); |
| 838 | $displayMode = $self->r->ce->{pg}->{options}->{displayMode} |
838 | $displayMode = $self->r->ce->{pg}->{options}->{displayMode} |
| 839 | if not defined $displayMode or $displayMode eq "None"; |
839 | if not defined $displayMode or $displayMode eq "None"; |
| 840 | my $try_link = CGI::a({href=>$self->systemLink( |
840 | my $try_link = CGI::a({href=>$self->systemLink( |
| … | |
… | |
| 847 | editMode => "SetMaker", |
847 | editMode => "SetMaker", |
| 848 | problemSeed=> $problem_seed, |
848 | problemSeed=> $problem_seed, |
| 849 | sourceFilePath => "$sourceFileName", |
849 | sourceFilePath => "$sourceFileName", |
| 850 | displayMode => $displayMode, |
850 | displayMode => $displayMode, |
| 851 | } |
851 | } |
| 852 | )}, "Try it"); |
852 | ), target=>"WW_View"}, "Try it"); |
| 853 | |
853 | |
| 854 | my %add_box_data = ( -name=>"trial$cnt",-value=>1,-label=>"Add this problem to the target set on the next update"); |
854 | my %add_box_data = ( -name=>"trial$cnt",-value=>1,-label=>"Add this problem to the target set on the next update"); |
| 855 | if($mark & SUCCESS) { |
855 | if($mark & SUCCESS) { |
| 856 | $add_box_data{ -label } .= " (just added this problem)"; |
856 | $add_box_data{ -label } .= " (just added this problem)"; |
| 857 | } elsif($mark & ADDED) { |
857 | } elsif($mark & ADDED) { |
Parent Directory
| 
Revision Log
| 
Patch