| … | |
… | |
| 545 | ($can{showCorrectAnswers} |
545 | ($can{showCorrectAnswers} |
| 546 | ? CGI::checkbox( |
546 | ? CGI::checkbox( |
| 547 | -name => "showCorrectAnswers", |
547 | -name => "showCorrectAnswers", |
| 548 | -checked => $will{showCorrectAnswers}, |
548 | -checked => $will{showCorrectAnswers}, |
| 549 | -label => "Show correct answers", |
549 | -label => "Show correct answers", |
| 550 | ) . CGI::br() |
550 | ) ." " |
| 551 | : "" ), |
551 | : "" ), |
|
|
552 | ($can{showHints} |
|
|
553 | ? CGI::checkbox( |
|
|
554 | -name => "showHints", |
|
|
555 | -checked => $will{showHints}, |
|
|
556 | -label => "Show Hints", |
|
|
557 | ) . " " |
|
|
558 | : " " ), |
|
|
559 | ($can{showSolutions} |
|
|
560 | ? CGI::checkbox( |
|
|
561 | -name => "showSolutions", |
|
|
562 | -checked => $will{showSolutions}, |
|
|
563 | -label => "Show Solutions", |
|
|
564 | ) . " " |
|
|
565 | : " " ),CGI::br(), |
| 552 | CGI::submit(-name=>"previewAnswers", |
566 | CGI::submit(-name=>"previewAnswers", |
| 553 | -label=>"Preview Answers"), |
567 | -label=>"Preview Answers"), |
| 554 | ($can{recordAnswers} |
568 | ($can{recordAnswers} |
| 555 | ? CGI::submit(-name=>"submitAnswers", |
569 | ? CGI::submit(-name=>"submitAnswers", |
| 556 | -label=>"Submit Answers") |
570 | -label=>"Submit Answers") |
| … | |
… | |
| 801 | CGI::checkbox( |
815 | CGI::checkbox( |
| 802 | -name => "showOldAnswers", |
816 | -name => "showOldAnswers", |
| 803 | -checked => $will{showOldAnswers}, |
817 | -checked => $will{showOldAnswers}, |
| 804 | -label => "Saved answers", |
818 | -label => "Saved answers", |
| 805 | ), " ".CGI::br(); |
819 | ), " ".CGI::br(); |
| 806 | $can{showHints} and $optionLine .= join "", |
820 | |
| 807 | CGI::checkbox( |
|
|
| 808 | -name => "showHints", |
|
|
| 809 | -checked => $will{showHints}, |
|
|
| 810 | -label => "Hints", |
|
|
| 811 | ), " ".CGI::br(); |
|
|
| 812 | $can{showSolutions} and $optionLine .= join "", |
|
|
| 813 | CGI::checkbox( |
|
|
| 814 | -name => "showSolutions", |
|
|
| 815 | -checked => $will{showSolutions}, |
|
|
| 816 | -label => "Solutions", |
|
|
| 817 | ), " ".CGI::br(); |
|
|
| 818 | $optionLine and $optionLine .= join "", CGI::br(); |
821 | $optionLine and $optionLine .= join "", CGI::br(); |
| 819 | |
822 | |
| 820 | return CGI::div({-style=>"border: thin groove; padding: 1ex; margin: 2ex align: left"}, |
823 | return CGI::div({-style=>"border: thin groove; padding: 1ex; margin: 2ex align: left"}, |
| 821 | "View equations as: ".CGI::br(), |
824 | "View equations as: ".CGI::br(), |
| 822 | CGI::radio_group( |
825 | CGI::radio_group( |
Parent Directory
| 
Revision Log
| 
Patch