| … | |
… | |
| 357 | |
357 | |
| 358 | # main form |
358 | # main form |
| 359 | print |
359 | print |
| 360 | CGI::startform("POST", $r->uri), |
360 | CGI::startform("POST", $r->uri), |
| 361 | $self->hidden_authen_fields, |
361 | $self->hidden_authen_fields, |
| 362 | $self->viewOptions, |
|
|
| 363 | CGI::p(CGI::i($pg->{result}->{msg})), |
362 | CGI::p(CGI::i($pg->{result}->{msg})), |
| 364 | CGI::p($pg->{body_text}), |
363 | CGI::p($pg->{body_text}), |
| 365 | CGI::p( |
364 | CGI::p( |
| 366 | CGI::submit(-name=>"submitAnswers", -label=>"Submit Answers"), |
365 | CGI::submit(-name=>"submitAnswers", -label=>"Submit Answers"), |
| 367 | CGI::submit(-name=>"previewAnswers", -label=>"Preview Answers"), |
366 | CGI::submit(-name=>"previewAnswers", -label=>"Preview Answers"), |
|
|
367 | ), |
|
|
368 | $self->viewOptions, |
|
|
369 | CGI::endform(); |
|
|
370 | |
|
|
371 | # feedback form |
|
|
372 | my $ce = $self->{courseEnvironment}; |
|
|
373 | my $root = $ce->{webworkURLs}->{root}; |
|
|
374 | my $courseName = $ce->{courseName}; |
|
|
375 | my $feedbackURL = "$root/$courseName/feedback/"; |
|
|
376 | print |
|
|
377 | CGI::startform("POST", $feedbackURL), |
|
|
378 | $self->hidden_authen_fields, |
|
|
379 | CGI::hidden("module", __PACKAGE__), |
|
|
380 | CGI::hidden("set", $set->id), |
|
|
381 | CGI::hidden("problem", $problem->id), |
|
|
382 | CGI::hidden("displayMode", $self->{displayMode}), |
|
|
383 | CGI::hidden("showOldAnswers", $will{showOldAnswers}), |
|
|
384 | CGI::hidden("showCorrectAnswers", $will{showCorrectAnswers}), |
|
|
385 | CGI::hidden("showHints", $will{showHints}), |
|
|
386 | CGI::hidden("showSolutions", $will{showSolutions}), |
|
|
387 | CGI::p({-align=>"right"}, |
|
|
388 | CGI::submit(-name=>"feedbackForm", -label=>"Send Feedback") |
| 368 | ), |
389 | ), |
| 369 | CGI::endform(); |
390 | CGI::endform(); |
| 370 | |
391 | |
| 371 | # warning output |
392 | # warning output |
| 372 | if ($pg->{warnings} ne "") { |
393 | if ($pg->{warnings} ne "") { |