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>'; |
} |
} |