| 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.65 2006/07/08 01:52:01 gage Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.66 2006/07/08 14:07:35 gage 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. |
| … | |
… | |
| 25 | =cut |
25 | =cut |
| 26 | |
26 | |
| 27 | use strict; |
27 | use strict; |
| 28 | use warnings; |
28 | use warnings; |
| 29 | |
29 | |
|
|
30 | |
| 30 | use CGI qw(-nosticky ); |
31 | use CGI qw(-nosticky); |
| 31 | use WeBWorK::Debug; |
32 | use WeBWorK::Debug; |
| 32 | use WeBWorK::Form; |
33 | use WeBWorK::Form; |
| 33 | use WeBWorK::Utils qw(readDirectory max sortByName); |
34 | use WeBWorK::Utils qw(readDirectory max sortByName); |
| 34 | use WeBWorK::Utils::Tasks qw(renderProblems); |
35 | use WeBWorK::Utils::Tasks qw(renderProblems); |
| 35 | use File::Find; |
36 | use File::Find; |
| … | |
… | |
| 1295 | print CGI::hidden(-name=>"all_past_list$j", -value=>$pg_files[$j]); |
1296 | print CGI::hidden(-name=>"all_past_list$j", -value=>$pg_files[$j]); |
| 1296 | } |
1297 | } |
| 1297 | |
1298 | |
| 1298 | print CGI::hidden(-name=>'first_shown', -value=>[$first_shown]); |
1299 | print CGI::hidden(-name=>'first_shown', -value=>[$first_shown]); |
| 1299 | debug("last_shown 11: ", $last_shown); |
1300 | debug("last_shown 11: ", $last_shown); |
|
|
1301 | |
| 1300 | debug("last_shown hidden field: ", CGI::hidden(-name=>'last_shown', -value=>$last_shown)); |
1302 | debug("last_shown hidden field: ", CGI::hidden(-name=>'last_shown', -value=>$last_shown, -override=>1)); |
| 1301 | print CGI::hidden(-name=>'last_shown', -value=>[$last_shown]); |
1303 | print CGI::hidden(-name=>'last_shown', -value=>[$last_shown], -override=>1); |
| 1302 | |
1304 | |
| 1303 | |
1305 | |
| 1304 | ########## Now print problems |
1306 | ########## Now print problems |
| 1305 | my $jj; |
1307 | my $jj; |
| 1306 | for ($jj=0; $jj<scalar(@pg_html); $jj++) { |
1308 | for ($jj=0; $jj<scalar(@pg_html); $jj++) { |
Parent Directory
| 
Revision Log
| 
Patch