| 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.113 2004/02/04 00:32:12 gage Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.114 2004/02/04 13:22:56 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. |
| … | |
… | |
| 170 | my $redisplay = $r->param("redisplay"); |
170 | my $redisplay = $r->param("redisplay"); |
| 171 | my $submitAnswers = $r->param("submitAnswers"); |
171 | my $submitAnswers = $r->param("submitAnswers"); |
| 172 | my $checkAnswers = $r->param("checkAnswers"); |
172 | my $checkAnswers = $r->param("checkAnswers"); |
| 173 | my $previewAnswers = $r->param("previewAnswers"); |
173 | my $previewAnswers = $r->param("previewAnswers"); |
| 174 | |
174 | |
| 175 | # fields which may be defined when using Problem Editor |
175 | |
| 176 | #my $override_seed = ($permissionLevel>=10) ? $r->param('problemSeed') : undef; |
|
|
| 177 | #my $override_problem_source = ($permissionLevel>=10) ? $r->param('sourceFilePath') : undef; |
|
|
| 178 | #my $editMode = undef; |
|
|
| 179 | #my $submit_button = $r->param('submit_button'); |
|
|
| 180 | #if ( defined($submit_button ) ) { |
|
|
| 181 | # $editMode = "temporaryFile" if $submit_button eq 'Refresh'; |
|
|
| 182 | # $editMode = 'savedFile' if $submit_button eq 'Save'; |
|
|
| 183 | #} |
|
|
| 184 | # |
|
|
| 185 | ##override using the source file data from the form field |
|
|
| 186 | #$problem->source_file($override_problem_source) if defined($override_problem_source); |
|
|
| 187 | #$problem->problem_seed($override_seed) if defined($override_seed); |
|
|
| 188 | # |
|
|
| 189 | ## store path to source file for title. |
|
|
| 190 | #$self->{problem_source_name} = $problem->source_file; |
|
|
| 191 | #$self->{edit_mode} = $editMode; |
|
|
| 192 | #$self->{current_problem_source} = (defined($override_problem_source) ) ? |
|
|
| 193 | |
|
|
| 194 | # coerce form fields into CGI::Vars format |
|
|
| 195 | my $formFields = { WeBWorK::Form->new_from_paramable($r)->Vars }; |
176 | my $formFields = { WeBWorK::Form->new_from_paramable($r)->Vars }; |
| 196 | |
177 | |
| 197 | |
178 | |
| 198 | $self->{displayMode} = $displayMode; |
179 | $self->{displayMode} = $displayMode; |
| 199 | $self->{redisplay} = $redisplay; |
180 | $self->{redisplay} = $redisplay; |
Parent Directory
| 
Revision Log
| 
Patch