loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.52, 2001/08/06 20:33:23	version 1.55, 2001/08/17 16:50:04
Line 1	Line 1
# The LON-CAPA Homework handler	# The LON-CAPA Homework handler
# Guy Albertelli	# Guy Albertelli
# 11/30 Gerd Kortemeyer	# 11/30 Gerd Kortemeyer
# 6/1 Gerd Kortemeyer	# 6/1,8/17 Gerd Kortemeyer

package Apache::lonhomework;	package Apache::lonhomework;
use strict;	use strict;
Line 84 sub send_footer {	Line 84 sub send_footer {
}	}

$Apache::lonxml::browse='';	$Apache::lonxml::browse='';
sub check_date {
	sub check_access {
my ($id) = @_;	my ($id) = @_;
my $date ='';	my $date ='';
my $status = '';	my $status = '';
Line 130 sub check_date {	Line 131 sub check_date {
if ( $maxtries eq '' ) { $maxtries = '2'; }	if ( $maxtries eq '' ) { $maxtries = '2'; }
if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; }	if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; }
}	}

	if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam')) {
	return ('UNCHECKEDOUT','needs to be checked out');
	}


&Apache::lonxml::debug("sending back :$status:$datemsg:");	&Apache::lonxml::debug("sending back :$status:$datemsg:");
if (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED')) {	if (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED')) {
&Apache::lonxml::debug("should be allowed to browse a resource when closed");	&Apache::lonxml::debug("should be allowed to browse a resource when closed");