loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.107, 2003/06/24 19:18:01	version 1.108, 2003/07/15 21:12:01
Line 343 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.='<br />Your receipt is '.&Apache::lonnet::receipt;
	}
}	}
$bgcolor=$possiblecolors{'correct'};	$bgcolor=$possiblecolors{'correct'};
$button=0;	$button=0;
Line 359 sub decideoutput {	Line 363 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.='<br />Your receipt is '.&Apache::lonnet::receipt;
	}
$bgcolor=$possiblecolors{'correct'};	$bgcolor=$possiblecolors{'correct'};
$button=0;	$button=0;
$previousmsg='';	$previousmsg='';