| 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: webwork2/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.63 2006/06/24 20:01:25 dpvc Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.64 2006/07/07 22:27:33 sh002i 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. |
| … | |
… | |
| 869 | ), CGI::br(), |
869 | ), CGI::br(), |
| 870 | CGI::checkbox(-name=>"hideme$cnt",-value=>1,-label=>"Don't show this problem on the next update"), |
870 | CGI::checkbox(-name=>"hideme$cnt",-value=>1,-label=>"Don't show this problem on the next update"), |
| 871 | CGI::br(), |
871 | CGI::br(), |
| 872 | $inSet, |
872 | $inSet, |
| 873 | CGI::checkbox((%add_box_data)), |
873 | CGI::checkbox((%add_box_data)), |
| 874 | CGI::hidden(-name=>"filetrial$cnt", -default=>[$sourceFileName]). |
874 | CGI::hidden(-name=>"filetrial$cnt", -default=>[$sourceFileName],-override=>1). |
| 875 | CGI::p($problem_output), |
875 | CGI::p($problem_output), |
| 876 | )); |
876 | )); |
| 877 | } |
877 | } |
| 878 | |
878 | |
| 879 | sub clear_default { |
879 | sub clear_default { |
| … | |
… | |
| 1287 | $self->hidden_authen_fields, |
1287 | $self->hidden_authen_fields, |
| 1288 | '<div align="center">', |
1288 | '<div align="center">', |
| 1289 | CGI::start_table({-border=>2}); |
1289 | CGI::start_table({-border=>2}); |
| 1290 | $self->make_top_row('all_db_sets'=>\@all_db_sets, |
1290 | $self->make_top_row('all_db_sets'=>\@all_db_sets, |
| 1291 | 'browse_which'=> $browse_which); |
1291 | 'browse_which'=> $browse_which); |
| 1292 | print CGI::hidden(-name=>'browse_which', -default=>[$browse_which]), |
1292 | print CGI::hidden(-name=>'browse_which', -value=>[$browse_which], -override=>1), |
| 1293 | CGI::hidden(-name=>'problem_seed', -default=>[$problem_seed]); |
1293 | CGI::hidden(-name=>'problem_seed', -value=>[$problem_seed], -override=>1); |
| 1294 | for ($j = 0 ; $j < scalar(@pg_files) ; $j++) { |
1294 | for ($j = 0 ; $j < scalar(@pg_files) ; $j++) { |
| 1295 | print CGI::hidden(-name=>"all_past_list$j", -default=>$pg_files[$j]); |
1295 | print CGI::hidden(-name=>"all_past_list$j", -value=>$pg_files[$j]); |
| 1296 | } |
1296 | } |
| 1297 | |
1297 | |
| 1298 | print CGI::hidden(-name=>'first_shown', -default=>[$first_shown]); |
1298 | print CGI::hidden(-name=>'first_shown', -value=>[$first_shown], -override=>1); |
| 1299 | debug("last_shown 11: ", $last_shown); |
1299 | debug("last_shown 11: ", $last_shown); |
| 1300 | debug("last_shown hidden field: ", CGI::hidden(-name=>'last_shown', -default=>[$last_shown])); |
1300 | debug("last_shown hidden field: ", CGI::hidden(-name=>'last_shown', -value=>$last_shown, -override=>1)); |
| 1301 | print CGI::hidden(-name=>'last_shown', -default=>[$last_shown]); |
1301 | print CGI::hidden(-name=>'last_shown', -value=>[$last_shown], -override=>1); |
| 1302 | |
1302 | |
| 1303 | |
1303 | |
| 1304 | ########## Now print problems |
1304 | ########## Now print problems |
| 1305 | my $jj; |
1305 | my $jj; |
| 1306 | for ($jj=0; $jj<scalar(@pg_html); $jj++) { |
1306 | for ($jj=0; $jj<scalar(@pg_html); $jj++) { |
Parent Directory
| 
Revision Log
| 
Patch