| … | |
… | |
| 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 | ) . CGI::br() |
| 551 | : "" ), |
551 | : "" ), |
|
|
552 | CGI::submit(-name=>"previewAnswers", |
|
|
553 | -label=>"Preview Answers"), |
| 552 | ($can{recordAnswers} |
554 | ($can{recordAnswers} |
| 553 | ? CGI::submit(-name=>"submitAnswers", |
555 | ? CGI::submit(-name=>"submitAnswers", |
| 554 | -label=>"Submit Answers") |
556 | -label=>"Submit Answers") |
| 555 | : ""), |
557 | : ""), |
| 556 | ( ($can{checkAnswers} and not $can{recordAnswers}) |
558 | ( ($can{checkAnswers} and not $can{recordAnswers}) |
| 557 | ? CGI::submit(-name=>"checkAnswers", |
559 | ? CGI::submit(-name=>"checkAnswers", |
| 558 | -label=>"Check Answers") |
560 | -label=>"Check Answers") |
| 559 | : ""), |
561 | : ""), |
| 560 | CGI::submit(-name=>"previewAnswers", |
|
|
| 561 | -label=>"Preview Answers"), |
|
|
| 562 | ); |
562 | ); |
| 563 | print CGI::end_div(); |
563 | print CGI::end_div(); |
| 564 | |
564 | |
| 565 | print CGI::start_div({class=>"scoreSummary"}); |
565 | print CGI::start_div({class=>"scoreSummary"}); |
| 566 | |
566 | |