| … | |
… | |
| 653 | $setClosed ? $setClosedMessage : "You have $attemptsLeft $attemptsLeftNoun remaining." |
653 | $setClosed ? $setClosedMessage : "You have $attemptsLeft $attemptsLeftNoun remaining." |
| 654 | ); |
654 | ); |
| 655 | print CGI::end_div(); |
655 | print CGI::end_div(); |
| 656 | |
656 | |
| 657 | # save state for viewOptions |
657 | # save state for viewOptions |
| 658 | print CGI::hidden( |
658 | print CGI::hidden( |
| 659 | -name => "showOldAnswers", |
659 | -name => "showOldAnswers", |
| 660 | -value => $will{showOldAnswers} |
660 | -value => $will{showOldAnswers} |
| 661 | ), |
661 | ), |
| 662 | |
662 | |
| 663 | CGI::hidden( |
663 | CGI::hidden( |
| 664 | -name => "displayMode", |
664 | -name => "displayMode", |
| 665 | -value => $self->{displayMode} |
665 | -value => $self->{displayMode} |
| 666 | ); |
666 | ); |
| 667 | |
667 | print( CGI::hidden( |
|
|
668 | -name => 'editMode', |
|
|
669 | -value => $self->{editMode}, |
|
|
670 | ) |
|
|
671 | ) if defined($self->{editMode}) and $self->{editMode} eq 'temporaryFile'; |
|
|
672 | print( CGI::hidden( |
|
|
673 | -name => 'sourceFilePath', |
|
|
674 | -value => $self->{problem}->{source_file} |
|
|
675 | )) if defined($self->{problem}->{source_file}); |
|
|
676 | |
| 668 | # end of main form |
677 | # end of main form |
| 669 | print CGI::endform(); |
678 | print CGI::endform(); |
| 670 | |
679 | |
| 671 | # stuff we need below (pull these out at the beginning?) |
680 | # stuff we need below (pull these out at the beginning?) |
| 672 | my $ce = $self->{ce}; |
681 | my $ce = $self->{ce}; |
Parent Directory
| 
Revision Log
| 
Patch