| 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: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.116 2004/03/04 21:05:54 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.117 2004/03/19 21:56:35 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. |
| … | |
… | |
| 763 | # print answer inspection button |
763 | # print answer inspection button |
| 764 | if ($self->{permissionLevel} > 0) { |
764 | if ($self->{permissionLevel} > 0) { |
| 765 | print "\n", |
765 | print "\n", |
| 766 | CGI::start_form(-method=>"POST",-action=>$showPastAnswersURL,-target=>"information"),"\n", |
766 | CGI::start_form(-method=>"POST",-action=>$showPastAnswersURL,-target=>"information"),"\n", |
| 767 | $self->hidden_authen_fields,"\n", |
767 | $self->hidden_authen_fields,"\n", |
| 768 | CGI::hidden(-name => 'course', -value=>$courseName), "\n", |
768 | CGI::hidden(-name => 'courseID', -value=>$courseName), "\n", |
| 769 | CGI::hidden(-name => 'problemNumber', -value=>$problem->problem_id), "\n", |
769 | CGI::hidden(-name => 'problemID', -value=>$problem->problem_id), "\n", |
| 770 | CGI::hidden(-name => 'setName', -value=>$problem->set_id), "\n", |
770 | CGI::hidden(-name => 'setID', -value=>$problem->set_id), "\n", |
| 771 | CGI::hidden(-name => 'studentUser', -value=>$problem->user_id), "\n", |
771 | CGI::hidden(-name => 'studentUser', -value=>$problem->user_id), "\n", |
| 772 | CGI::p( {-align=>"left"}, |
772 | CGI::p( {-align=>"left"}, |
| 773 | CGI::submit(-name => 'action', -value=>'Show Past Answers') |
773 | CGI::submit(-name => 'action', -value=>'Show Past Answers') |
| 774 | ), "\n", |
774 | ), "\n", |
| 775 | CGI::endform(); |
775 | CGI::endform(); |