| … | |
… | |
| 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 | : "" ), |
| 545 | ($can{recordAnswers} |
552 | ($can{recordAnswers} |
| 546 | ? CGI::submit(-name=>"submitAnswers", |
553 | ? CGI::submit(-name=>"submitAnswers", |
| 547 | -label=>"Submit Answers") |
554 | -label=>"Submit Answers") |
| 548 | : ""), |
555 | : ""), |
| 549 | ( ($can{checkAnswers} and not $can{recordAnswers}) |
556 | ( ($can{checkAnswers} and not $can{recordAnswers}) |
| … | |
… | |
| 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