loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.211, 2005/06/06 01:21:53	version 1.212, 2005/07/12 21:50:05
Line 320 sub check_access {	Line 320 sub check_access {
&Apache::lonxml::debug("checking for part :$id:");	&Apache::lonxml::debug("checking for part :$id:");
&Apache::lonxml::debug("time:".time);	&Apache::lonxml::debug("time:".time);

	my ($symb)=&Apache::lonxml::whichuser();
	&Apache::lonxml::debug("symb:".$symb);
	#if ($env{'request.state'} ne "construct" && $symb ne '') {
if ($env{'request.state'} ne "construct") {	if ($env{'request.state'} ne "construct") {
my $allowed=&check_ip_acc(&Apache::lonnet::EXT("resource.$id.acc"));	my $allowed=&check_ip_acc(&Apache::lonnet::EXT("resource.$id.acc"));
if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {	if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {
Line 372 sub check_access {	Line 375 sub check_access {
$datemsg = &mt("was due on")." $lastdate".&mt(", and answers will be available on")." $date";	$datemsg = &mt("was due on")." $lastdate".&mt(", and answers will be available on")." $date";
}	}
}	}
if ($status eq 'CAN_ANSWER') {	if ($status eq 'CAN_ANSWER' \|\|
	(($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED'))) {
#check #tries, and if correct.	#check #tries, and if correct.
my $tries = $Apache::lonhomework::history{"resource.$id.tries"};	my $tries = $Apache::lonhomework::history{"resource.$id.tries"};
my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");