loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.124, 2003/11/25 23:04:58	version 1.126, 2004/01/15 00:15:12
Line 24	Line 24
# /home/httpd/html/adm/gpl.txt	# /home/httpd/html/adm/gpl.txt
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#
# 2/19 Guy

package Apache::inputtags;	package Apache::inputtags;
use HTML::Entities();	use HTML::Entities();
Line 480 sub decideoutput {	Line 478 sub decideoutput {
}	}
if (lc($Apache::lonhomework::problemstatus) eq 'no' &&	if (lc($Apache::lonhomework::problemstatus) eq 'no' &&
$Apache::inputtags::status[-1] ne 'SHOW_ANSWER') {	$Apache::inputtags::status[-1] ne 'SHOW_ANSWER') {
$message = &mt("Answer Submitted");	$message = &mt("Answer Submitted: Your final submission will be graded after the due date.");
$bgcolor=$possiblecolors{'correct'};	$bgcolor=$possiblecolors{'correct'};
$button=1;	$button=1;
}	}
Line 679 sub gradestatus {	Line 677 sub gradestatus {
$trystr = '\vskip 0 mm ';	$trystr = '\vskip 0 mm ';
}	}
} else {	} else {
$trystr = "<td>".&mt('Tries')." $tries/$maxtries</td>";	$trystr = "<td>".&mt('Tries')." $tries";
	if($ENV{'request.state'} ne 'construct') { $trystr.="/$maxtries"; }
	$trystr.="</td>";
}	}
}	}
if ( $status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {$showbutton = 0;}	if ( $status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {$showbutton = 0;}