loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/inputtags.pm between versions 1.109 and 1.111

version 1.109, 2003/07/15 21:26:23	version 1.111, 2003/08/01 18:04:10
Line 346 sub decideoutput {	Line 346 sub decideoutput {
unless ($ENV{'course.'.	unless ($ENV{'course.'.
$ENV{'request.course.id'}.	$ENV{'request.course.id'}.
'.disable_receipt_display'} eq 'yes') {	'.disable_receipt_display'} eq 'yes') {
$message.='<br />Your receipt is '.&Apache::lonnet::receipt().	$message.=(($target eq 'web')?'<br />':' ').
&Apache::loncommon::help_open_topic('Receipt');	'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='';
} elsif ($solved =~ /^excused/) {	} elsif ($solved =~ /^excused/) {
$message = "<b>You are excused from the problem.</b>";	if ($target eq 'tex') {
	$message = ' \textbf{You are excused from the problem.} ';
	} else {
	$message = "<b>You are excused from the problem.</b>";
	}
$bgcolor=$possiblecolors{'charged_try'};	$bgcolor=$possiblecolors{'charged_try'};
$button=0;	$button=0;
$previousmsg='';	$previousmsg='';
Line 368 sub decideoutput {	Line 373 sub decideoutput {
unless ($ENV{'course.'.	unless ($ENV{'course.'.
$ENV{'request.course.id'}.	$ENV{'request.course.id'}.
'.disable_receipt_display'} eq 'yes') {	'.disable_receipt_display'} eq 'yes') {
$message.='<br />Your receipt is '.&Apache::lonnet::receipt().	$message.=(($target eq 'web')?'<br />':' ').
&Apache::loncommon::help_open_topic('Receipt');	'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;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.109
changed lines
	Added in v.1.111