--- loncom/homework/inputtags.pm 2001/01/05 01:14:49 1.21 +++ loncom/homework/inputtags.pm 2001/01/15 21:44:21 1.25 @@ -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,7 +255,7 @@ 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 '' ) { @@ -267,11 +267,11 @@ sub gradestatus { &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 = '



'; }