loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.67, 2002/10/24 19:13:53	version 1.68, 2002/10/24 19:20:17
Line 234 sub finalizeawards {	Line 234 sub finalizeawards {
}	}

sub decideoutput {	sub decideoutput {
my ($award,$solved,$previous)=@_;	my ($award,$solved,$previous,$target)=@_;
my $message='';	my $message='';
my $button=0;	my $button=0;
my $previousmsg;	my $previousmsg;
Line 242 sub decideoutput {	Line 242 sub decideoutput {
if ($previous) { $previousmsg='You have entered that answer before'; }	if ($previous) { $previousmsg='You have entered that answer before'; }

if ($solved =~ /^correct/) {	if ($solved =~ /^correct/) {
$message = "<b>You are correct.</b> Your receipt is ".	if ($target eq 'tex') {
	$message = '\textbf{You are correct}. Your receipt is '.
&Apache::lonnet::receipt;	&Apache::lonnet::receipt;
	} else {
	$message = "<b>You are correct.</b> Your receipt is ".
	&Apache::lonnet::receipt;
	}
$button=0;	$button=0;
$previousmsg='';	$previousmsg='';
} elsif ($solved =~ /^excused/) {	} elsif ($solved =~ /^excused/) {
Line 408 sub gradestatus {	Line 413 sub gradestatus {
if ( $award ne '' ) {	if ( $award ne '' ) {
&Apache::lonxml::debug('Getting message');	&Apache::lonxml::debug('Getting message');
($showbutton,$message,$previousmsg) =	($showbutton,$message,$previousmsg) =
&decideoutput($award,$solved,$previous);	&decideoutput($award,$solved,$previous,$target);
if ($target eq 'tex') {	if ($target eq 'tex') {
$message=' '.$message.' ';	$message=' '.$message.' ';
} else {	} else {