| … | |
… | |
| 522 | # don't show correct answers |
522 | # don't show correct answers |
| 523 | # show attempt results (correctness) |
523 | # show attempt results (correctness) |
| 524 | # don't show attempt previews |
524 | # don't show attempt previews |
| 525 | } elsif ($previewAnswers) { |
525 | } elsif ($previewAnswers) { |
| 526 | # print this if user previewed answers |
526 | # print this if user previewed answers |
| 527 | print $self->attemptResults($pg, 1, 0, 0, 0, 1); |
527 | print "PREVIEW ONLY -- NOT RECORDED",CGI::br(),$self->attemptResults($pg, 1, 0, 0, 0, 1); |
| 528 | # show attempt answers |
528 | # show attempt answers |
| 529 | # don't show correct answers |
529 | # don't show correct answers |
| 530 | # don't show attempt results (correctness) |
530 | # don't show attempt results (correctness) |
| 531 | # show attempt previews |
531 | # show attempt previews |
| 532 | } |
532 | } |
| … | |
… | |
| 540 | CGI::startform("POST", $r->uri), |
540 | CGI::startform("POST", $r->uri), |
| 541 | $self->hidden_authen_fields, |
541 | $self->hidden_authen_fields, |
| 542 | CGI::p($pg->{body_text}), |
542 | CGI::p($pg->{body_text}), |
| 543 | CGI::p($pg->{result}->{msg} ? CGI::b("Note: ") : "", CGI::i($pg->{result}->{msg})), |
543 | CGI::p($pg->{result}->{msg} ? CGI::b("Note: ") : "", CGI::i($pg->{result}->{msg})), |
| 544 | CGI::p( |
544 | CGI::p( |
|
|
545 | ($can{showCorrectAnswers} |
|
|
546 | ? CGI::checkbox( |
|
|
547 | -name => "showCorrectAnswers", |
|
|
548 | -checked => $will{showCorrectAnswers}, |
|
|
549 | -label => "Show correct answers", |
|
|
550 | ) . CGI::br() |
|
|
551 | : "" ), |
|
|
552 | CGI::submit(-name=>"previewAnswers", |
|
|
553 | -label=>"Preview Answers"), |
| 545 | ($can{recordAnswers} |
554 | ($can{recordAnswers} |
| 546 | ? CGI::submit(-name=>"submitAnswers", |
555 | ? CGI::submit(-name=>"submitAnswers", |
| 547 | -label=>"Submit Answers") |
556 | -label=>"Submit Answers") |
| 548 | : ""), |
557 | : ""), |
| 549 | ($can{checkAnswers} |
558 | ( ($can{checkAnswers} and not $can{recordAnswers}) |
| 550 | ? CGI::submit(-name=>"checkAnswers", |
559 | ? CGI::submit(-name=>"checkAnswers", |
| 551 | -label=>"Check Answers") |
560 | -label=>"Check Answers") |
| 552 | : ""), |
561 | : ""), |
| 553 | CGI::submit(-name=>"previewAnswers", |
|
|
| 554 | -label=>"Preview Answers"), |
|
|
| 555 | ); |
562 | ); |
| 556 | print CGI::end_div(); |
563 | print CGI::end_div(); |
| 557 | |
564 | |
| 558 | print CGI::start_div({class=>"scoreSummary"}); |
565 | print CGI::start_div({class=>"scoreSummary"}); |
| 559 | |
566 | |
| … | |
… | |
| 793 | "Show: ".CGI::br(), |
800 | "Show: ".CGI::br(), |
| 794 | CGI::checkbox( |
801 | CGI::checkbox( |
| 795 | -name => "showOldAnswers", |
802 | -name => "showOldAnswers", |
| 796 | -checked => $will{showOldAnswers}, |
803 | -checked => $will{showOldAnswers}, |
| 797 | -label => "Saved answers", |
804 | -label => "Saved answers", |
| 798 | ), " ".CGI::br(); |
|
|
| 799 | $can{showCorrectAnswers} and $optionLine .= join "", |
|
|
| 800 | CGI::checkbox( |
|
|
| 801 | -name => "showCorrectAnswers", |
|
|
| 802 | -checked => $will{showCorrectAnswers}, |
|
|
| 803 | -label => "Correct answers", |
|
|
| 804 | ), " ".CGI::br(); |
805 | ), " ".CGI::br(); |
| 805 | $can{showHints} and $optionLine .= join "", |
806 | $can{showHints} and $optionLine .= join "", |
| 806 | CGI::checkbox( |
807 | CGI::checkbox( |
| 807 | -name => "showHints", |
808 | -name => "showHints", |
| 808 | -checked => $will{showHints}, |
809 | -checked => $will{showHints}, |
Parent Directory
| 
Revision Log
| 
Patch