loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.113, 2003/08/28 12:46:31	version 1.114, 2003/08/28 12:54:27
Line 402 sub decideoutput {	Line 402 sub decideoutput {
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'MISORDERED_RANK') {	} elsif ($award eq 'MISORDERED_RANK') {
$message = 'You have provided an invalid ranking, please refer to '.	$message = 'You have provided an invalid ranking';
&Apache::loncommon::help_open_topic('Ranking_Problems','help on ranking problems').'.';	if ($target ne 'tex') {
	$message.=', please refer to '.&Apache::loncommon::help_open_topic('Ranking_Problems','help on ranking problems').'.';
	}
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'INVALID_FILETYPE') {	} elsif ($award eq 'INVALID_FILETYPE') {
Line 424 sub decideoutput {	Line 426 sub decideoutput {
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'NO_UNIT') {	} elsif ($award eq 'NO_UNIT') {
$message = "Units required".	$message = "Units required";
&Apache::loncommon::help_open_topic('Physical_Units');	if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units')};
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'BAD_FORMULA') {	} elsif ($award eq 'BAD_FORMULA') {