loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.89, 2003/04/08 02:37:58	version 1.90, 2003/04/08 13:46:30
Line 264 sub decideoutput {	Line 264 sub decideoutput {
my $button=0;	my $button=0;
my $previousmsg;	my $previousmsg;

	if (lc $Apache::lonhomework::problemstatus eq 'yes') {

if ($previous) { $previousmsg='You have entered that answer before'; }	if ($previous) { $previousmsg='You have entered that answer before'; }

if ($solved =~ /^correct/) {	if ($solved =~ /^correct/) {
Line 336 sub decideoutput {	Line 338 sub decideoutput {
$message = "Unknown message: $award";	$message = "Unknown message: $award";
$button=1;	$button=1;
}	}
if ($Apache::lonhomework::type eq 'exam') {$message='';$previousmsg='';}	} elsif ($Apache::lonhomework::type eq 'exam') {
	$message = "Answer Submitted";
	$button=1;
	}
return ($button,$message,$previousmsg);	return ($button,$message,$previousmsg);
}	}