|
version 1.23, 2001/01/10 21:49:43
|
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) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to inputtags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework