--- loncom/homework/inputtags.pm 2001/01/05 01:14:49 1.21 +++ loncom/homework/inputtags.pm 2001/01/24 17:02:17 1.26 @@ -99,7 +99,7 @@ sub end_textline { # my $usedtry='1'; # my $response=''; # if ( $target == 'web' ) { -# if ( defined $ENV{'form.submit'}) { +# if ( defined $ENV{'form.submitted'}) { # } # if ($showbutton > 0) { $result.=$button } # } @@ -163,7 +163,7 @@ sub decideoutput { my $message=''; my $button=0; if ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) { - $message = "You are correct. You receipt is ".&Apache::lonnet::receipt; + $message = "You are correct. Your receipt is ".&Apache::lonnet::receipt; $button=0; } elsif ($award eq 'NO_RESPONSE') { $message = ''; @@ -225,7 +225,7 @@ sub grade { # my $result=''; my $response=''; if ( $target == 'web' ) { - if ( defined $ENV{'form.submit'}) { + if ( defined $ENV{'form.submitted'}) { my @awards = (); &Apache::lonxml::debug("$#Apache::inputtags::responselist"); foreach $response (@Apache::inputtags::responselist) { @@ -255,25 +255,26 @@ sub gradestatus { my $status = $Apache::inputtags::status['-1']; &Apache::lonxml::debug("gradestatus has :$status:"); - if ( $status eq 'CAN_ANSWER' || $status eq 'SHOW_ANSWER' ) { + if ( $status ne 'CLOSED' ) { my $award = $Apache::lonhomework::history{"resource.$id.award"}; &Apache::lonxml::debug("Found Award |$award|"); if ( $award ne '' ) { &Apache::lonxml::debug('Getting message'); ($showbutton,$message) = &decideoutput($award); + $message="
$message
"; } my $tries = $Apache::lonhomework::history{"resource.$id.tries"}; my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries"); &Apache::lonxml::debug("got maxtries of :$maxtries:"); if ( $tries eq '' ) { $tries = '0'; } if ( $maxtries eq '' ) { $maxtries = '2'; } + if ( $maxtries eq 'con_lost' ) { $maxtries = '0'; } if ( $showbutton ) { $trystr = "

Tries $tries/$maxtries"; } - if ( $tries >= $maxtries ) { $showbutton = 0; } - if ( $status eq 'SHOW_ANSWER' ) { $showbutton = 0; } + if ( $status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') {$showbutton = 0;} if ( $showbutton ) { - $button = '



'; + $button = '

'; } } return $button.$message.$trystr;