version 1.105, 2003/06/19 21:41:02
|
version 1.110, 2003/07/17 20:05:59
|
Line 144 sub start_textfield {
|
Line 144 sub start_textfield {
|
} else { |
} else { |
$result=$token->[4]; |
$result=$token->[4]; |
} |
} |
|
my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser); |
$result.=&Apache::edit::modifiedfield(); |
$result.=&Apache::edit::modifiedfield(); |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
my $number_of_lines = &Apache::lonxml::get_param('rows',$parstack,$safeeval); |
my $number_of_lines = &Apache::lonxml::get_param('rows',$parstack,$safeeval); |
Line 342 sub decideoutput {
|
Line 343 sub decideoutput {
|
} else { |
} else { |
$message = "<b>You are correct.</b>"; |
$message = "<b>You are correct.</b>"; |
} |
} |
$message.=' Your receipt is '.&Apache::lonnet::receipt; |
unless ($ENV{'course.'. |
|
$ENV{'request.course.id'}. |
|
'.disable_receipt_display'} eq 'yes') { |
|
$message.=(($target eq 'web')?'<br />':' '). |
|
'Your receipt is '.&Apache::lonnet::receipt(). |
|
(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):''); |
|
} |
} |
} |
$bgcolor=$possiblecolors{'correct'}; |
$bgcolor=$possiblecolors{'correct'}; |
$button=0; |
$button=0; |
Line 358 sub decideoutput {
|
Line 365 sub decideoutput {
|
$bgcolor=$possiblecolors{'charged_try'}; |
$bgcolor=$possiblecolors{'charged_try'}; |
$button=1; |
$button=1; |
} else { |
} else { |
$message = "<b>You are correct.</b> Your receipt is ". |
$message = "<b>You are correct.</b>"; |
&Apache::lonnet::receipt; |
unless ($ENV{'course.'. |
|
$ENV{'request.course.id'}. |
|
'.disable_receipt_display'} eq 'yes') { |
|
$message.=(($target eq 'web')?'<br />':' '). |
|
'Your receipt is '.&Apache::lonnet::receipt(). |
|
(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):''); |
|
} |
$bgcolor=$possiblecolors{'correct'}; |
$bgcolor=$possiblecolors{'correct'}; |
$button=0; |
$button=0; |
$previousmsg=''; |
$previousmsg=''; |
Line 373 sub decideoutput {
|
Line 386 sub decideoutput {
|
$bgcolor=$possiblecolors{'not_charged_try'}; |
$bgcolor=$possiblecolors{'not_charged_try'}; |
$button = 1; |
$button = 1; |
} elsif ($award eq 'ERROR') { |
} elsif ($award eq 'ERROR') { |
$message = 'An error occured while trying to grade answer.'; |
$message = 'An error occured while grading your answer.'; |
$bgcolor=$possiblecolors{'not_charged_try'}; |
$bgcolor=$possiblecolors{'not_charged_try'}; |
$button = 1; |
$button = 1; |
} elsif ($award eq 'TOO_LONG') { |
} elsif ($award eq 'TOO_LONG') { |