version 1.22, 2001/01/06 16:35:36
|
version 1.25, 2001/01/15 21:44:21
|
Line 99 sub end_textline {
|
Line 99 sub end_textline {
|
# my $usedtry='1'; |
# my $usedtry='1'; |
# my $response=''; |
# my $response=''; |
# if ( $target == 'web' ) { |
# if ( $target == 'web' ) { |
# if ( defined $ENV{'form.submit'}) { |
# if ( defined $ENV{'form.submitted'}) { |
# } |
# } |
# if ($showbutton > 0) { $result.=$button } |
# if ($showbutton > 0) { $result.=$button } |
# } |
# } |
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 = "<b>You are correct.</b> You receipt is ".&Apache::lonnet::receipt; |
$message = "<b>You are correct.</b> Your receipt is ".&Apache::lonnet::receipt; |
$button=0; |
$button=0; |
} elsif ($award eq 'NO_RESPONSE') { |
} elsif ($award eq 'NO_RESPONSE') { |
$message = ''; |
$message = ''; |
Line 225 sub grade {
|
Line 225 sub grade {
|
# my $result=''; |
# my $result=''; |
my $response=''; |
my $response=''; |
if ( $target == 'web' ) { |
if ( $target == 'web' ) { |
if ( defined $ENV{'form.submit'}) { |
if ( defined $ENV{'form.submitted'}) { |
my @awards = (); |
my @awards = (); |
&Apache::lonxml::debug("$#Apache::inputtags::responselist"); |
&Apache::lonxml::debug("$#Apache::inputtags::responselist"); |
foreach $response (@Apache::inputtags::responselist) { |
foreach $response (@Apache::inputtags::responselist) { |
Line 267 sub gradestatus {
|
Line 267 sub gradestatus {
|
&Apache::lonxml::debug("got maxtries of :$maxtries:"); |
&Apache::lonxml::debug("got maxtries of :$maxtries:"); |
if ( $tries eq '' ) { $tries = '0'; } |
if ( $tries eq '' ) { $tries = '0'; } |
if ( $maxtries eq '' ) { $maxtries = '2'; } |
if ( $maxtries eq '' ) { $maxtries = '2'; } |
|
if ( $maxtries eq 'con_lost' ) { $maxtries = '0'; } |
if ( $showbutton ) { |
if ( $showbutton ) { |
$trystr = "<br></br>Tries $tries/$maxtries"; |
$trystr = "<br></br>Tries $tries/$maxtries"; |
} |
} |