|
version 1.12, 2000/12/05 22:07:26
|
version 1.13, 2000/12/08 20:53:45
|
|
Line 139 sub decideoutput {
|
Line 139 sub decideoutput {
|
| if ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) { |
if ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) { |
| $message = "Correct computer gets %s"; |
$message = "Correct computer gets %s"; |
| $button=0; |
$button=0; |
| |
} elsif ($award eq 'NO_RESPONSE') { |
| |
$message = ''; |
| |
$button=1; |
| } elsif ($award eq 'WANTED_NUMERIC') { |
} elsif ($award eq 'WANTED_NUMERIC') { |
| $message = "This question expects a numeric answer"; |
$message = "This question expects a numeric answer"; |
| $button=1; |
$button=1; |
|
Line 228 sub gradestatus {
|
Line 231 sub gradestatus {
|
| my $tries = $Apache::lonhomework::history{"resource.tries.$id"}; |
my $tries = $Apache::lonhomework::history{"resource.tries.$id"}; |
| my $maxtries = $Apache::lonhomework::history{"resource.maxtries.$id"}; |
my $maxtries = $Apache::lonhomework::history{"resource.maxtries.$id"}; |
| if ( $tries eq '' ) { $tries = '0'; } |
if ( $tries eq '' ) { $tries = '0'; } |
| if ( $maxtries eq '' ) { $maxtries = '99'; } |
if ( $maxtries eq '' ) { $maxtries = '2'; } |
| |
my $trystr=''; |
| |
if ( $showbutton ) { |
| |
$trystr = "<br></br>Tries $tries/$maxtries"; |
| |
} |
| if ( $tries >= $maxtries ) { $showbutton = 0; } |
if ( $tries >= $maxtries ) { $showbutton = 0; } |
| my $trystr = "Tries $tries/$maxtries"; |
|
| if ( $showbutton ) { |
if ( $showbutton ) { |
| $button = '<input type="submit" name="submit" value="Submit All Answers"><br></br>'; |
$button = '<input type="submit" name="submit" value="Submit All Answers"><br></br>'; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to inputtags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework