| … | |
… | |
| 244 | </SELECT> |
244 | </SELECT> |
| 245 | <BR> |
245 | <BR> |
| 246 | ENDOFHTML |
246 | ENDOFHTML |
| 247 | |
247 | |
| 248 | |
248 | |
|
|
249 | my $practiceUser = $Global::practiceUser; |
|
|
250 | if (($currentTime > $ddts) or ($User =~ /^$practiceUser/)) { |
|
|
251 | print q!<INPUT type="checkbox" name="show_old_answers" value=1> Show my old answers<BR>!; |
|
|
252 | } |
|
|
253 | else { |
|
|
254 | print q!<INPUT type="checkbox" name="show_old_answers" checked value=1> Show my old answers<BR>!; |
|
|
255 | } |
|
|
256 | |
| 249 | print &sessionKeyInputs(\%inputs); |
257 | print &sessionKeyInputs(\%inputs); |
| 250 | my $mode = $inputs{'Mode'}; |
258 | my $mode = $inputs{'Mode'}; |
| 251 | $mode = $Global::htmlModeDefault unless ($mode); |
259 | $mode = $Global::htmlModeDefault unless ($mode); |
| 252 | &displaySelectModeLine($mode); ## displays mode select buttons |
260 | &displaySelectModeLine($mode); ## displays mode select buttons |
| 253 | ## the sub displaySelectModeLine is in |
261 | ## the sub displaySelectModeLine is in |