| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.219 2009/10/17 15:49:32 apizer Exp $ |
4 | # $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.220 2009/11/02 16:53:50 apizer 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. |
| … | |
… | |
| 1127 | print( CGI::hidden( |
1127 | print( CGI::hidden( |
| 1128 | -name => 'editMode', |
1128 | -name => 'editMode', |
| 1129 | -value => $self->{editMode}, |
1129 | -value => $self->{editMode}, |
| 1130 | ) |
1130 | ) |
| 1131 | ) if defined($self->{editMode}) and $self->{editMode} eq 'temporaryFile'; |
1131 | ) if defined($self->{editMode}) and $self->{editMode} eq 'temporaryFile'; |
|
|
1132 | |
|
|
1133 | # this is a security risk -- students can use this to find the source code for the problem |
| 1132 | print( CGI::hidden( |
1134 | # print( CGI::hidden( |
| 1133 | -name => 'sourceFilePath', |
1135 | # -name => 'sourceFilePath', |
| 1134 | -value => $self->{problem}->{source_file} |
1136 | # -value => $self->{problem}->{source_file} |
| 1135 | )) if defined($self->{problem}->{source_file}); |
1137 | # )) if defined($self->{problem}->{source_file}); |
| 1136 | |
1138 | |
| 1137 | print( CGI::hidden( |
1139 | # print( CGI::hidden( |
| 1138 | -name => 'problemSeed', |
1140 | # -name => 'problemSeed', |
| 1139 | -value => $r->param("problemSeed") |
1141 | # -value => $r->param("problemSeed") |
| 1140 | )) if defined($r->param("problemSeed")); |
1142 | # )) if defined($r->param("problemSeed")); |
| 1141 | |
1143 | |
| 1142 | # end of main form |
1144 | # end of main form |
| 1143 | print CGI::endform(); |
1145 | print CGI::endform(); |
| 1144 | |
1146 | |
| 1145 | print CGI::start_div({class=>"problemFooter"}); |
1147 | print CGI::start_div({class=>"problemFooter"}); |
| … | |
… | |
| 1169 | CGI::submit(-name => 'action', -value=>'Show Past Answers') |
1171 | CGI::submit(-name => 'action', -value=>'Show Past Answers') |
| 1170 | ), "\n", |
1172 | ), "\n", |
| 1171 | CGI::endform(); |
1173 | CGI::endform(); |
| 1172 | } |
1174 | } |
| 1173 | |
1175 | |
| 1174 | ## feedback form url |
|
|
| 1175 | #my $feedbackPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Feedback", |
|
|
| 1176 | # courseID => $courseName); |
|
|
| 1177 | #my $feedbackURL = $self->systemLink($feedbackPage, authen => 0); # no authen info for form action |
|
|
| 1178 | # |
|
|
| 1179 | ##print feedback form |
|
|
| 1180 | #print |
|
|
| 1181 | # CGI::start_form(-method=>"POST", -action=>$feedbackURL),"\n", |
|
|
| 1182 | # $self->hidden_authen_fields,"\n", |
|
|
| 1183 | # CGI::hidden("module", __PACKAGE__),"\n", |
|
|
| 1184 | # CGI::hidden("set", $set->set_id),"\n", |
|
|
| 1185 | # CGI::hidden("problem", $problem->problem_id),"\n", |
|
|
| 1186 | # CGI::hidden("displayMode", $self->{displayMode}),"\n", |
|
|
| 1187 | # CGI::hidden("showOldAnswers", $will{showOldAnswers}),"\n", |
|
|
| 1188 | # CGI::hidden("showCorrectAnswers", $will{showCorrectAnswers}),"\n", |
|
|
| 1189 | # CGI::hidden("showHints", $will{showHints}),"\n", |
|
|
| 1190 | # CGI::hidden("showSolutions", $will{showSolutions}),"\n", |
|
|
| 1191 | # CGI::p({-align=>"left"}, |
|
|
| 1192 | # CGI::submit(-name=>"feedbackForm", -label=>"Email instructor") |
|
|
| 1193 | # ), |
|
|
| 1194 | # CGI::endform(),"\n"; |
|
|
| 1195 | |
1176 | |
| 1196 | print $self->feedbackMacro( |
1177 | print $self->feedbackMacro( |
| 1197 | module => __PACKAGE__, |
1178 | module => __PACKAGE__, |
| 1198 | set => $self->{set}->set_id, |
1179 | set => $self->{set}->set_id, |
| 1199 | problem => $problem->problem_id, |
1180 | problem => $problem->problem_id, |
Parent Directory
| 
Revision Log
| 
Patch