loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.26, 2001/01/06 16:23:45	version 1.27, 2001/01/06 16:35:36
Line 92 sub check_date {	Line 92 sub check_date {
$status='CLOSED';	$status='CLOSED';
$datemsg = "was due as $lastdate, and answers will be available at $date";	$datemsg = "was due as $lastdate, and answers will be available at $date";
}	}
	if ($status eq 'CAN_ANSWER') {
	#check #tries
	my $tries = $Apache::lonhomework::history{"resource.$id.tries"};
	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
	if ( $tries eq '' ) { $tries = '0'; }
	if ( $maxtries eq '' ) { $maxtries = '2'; }
	if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; }
	}
&Apache::lonxml::debug("sending back :$status:$datemsg:");	&Apache::lonxml::debug("sending back :$status:$datemsg:");
if ($ENV{'request.state'} eq "construct") {	if ($ENV{'request.state'} eq "construct") {
&Apache::lonxml::debug("in construction ignoring dates");	&Apache::lonxml::debug("in construction ignoring dates");
Line 163 sub handler {	Line 171 sub handler {
$request->print($result);	$request->print($result);
#$request->print(":Result ends");	#$request->print(":Result ends");
if ($target eq 'grade') {	if ($target eq 'grade') {

my $resultkey;	my $resultkey;
foreach $resultkey (sort keys %Apache::lonhomework::results) {	foreach $resultkey (sort keys %Apache::lonhomework::results) {
&Apache::lonxml::debug("$resultkey ---- $Apache::lonhomework::results{$resultkey}");	&Apache::lonxml::debug("$resultkey ---- $Apache::lonhomework::results{$resultkey}");