version 1.19, 2000/12/21 18:13:33
|
version 1.20, 2001/01/04 22:24:23
|
Line 163 sub decideoutput {
|
Line 163 sub decideoutput {
|
my $message=''; |
my $message=''; |
my $button=0; |
my $button=0; |
if ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) { |
if ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) { |
$message = "Correct computer gets %s"; |
$message = "<b>You are correct.</b> You receipt is ".&Apache::lonnet::receipt; |
$button=0; |
$button=0; |
} elsif ($award eq 'NO_RESPONSE') { |
} elsif ($award eq 'NO_RESPONSE') { |
$message = ''; |
$message = ''; |
Line 222 sub setgradedata {
|
Line 222 sub setgradedata {
|
sub grade { |
sub grade { |
my ($target) = @_; |
my ($target) = @_; |
my $id = $Apache::inputtags::part; |
my $id = $Apache::inputtags::part; |
my $result=''; |
# my $result=''; |
my $response=''; |
my $response=''; |
if ( $target == 'web' ) { |
if ( $target == 'web' ) { |
if ( defined $ENV{'form.submit'}) { |
if ( defined $ENV{'form.submit'}) { |
Line 243 sub grade {
|
Line 243 sub grade {
|
&setgradedata($finalaward,$id); |
&setgradedata($finalaward,$id); |
} |
} |
} |
} |
return $result; |
return ''; |
} |
} |
|
|
sub gradestatus { |
sub gradestatus { |
Line 273 sub gradestatus {
|
Line 273 sub gradestatus {
|
if ( $tries >= $maxtries ) { $showbutton = 0; } |
if ( $tries >= $maxtries ) { $showbutton = 0; } |
if ( $status eq 'SHOW_ANSWER' ) { $showbutton = 0; } |
if ( $status eq 'SHOW_ANSWER' ) { $showbutton = 0; } |
if ( $showbutton ) { |
if ( $showbutton ) { |
$button = '<input type="submit" name="submit" value="Submit All Answers"><br></br>'; |
$button = '<br></br><input type="submit" name="submit" value="Submit All Answers"><br></br>'; |
} |
} |
} |
} |
return $button.$message.$trystr; |
return $button.$message.$trystr; |