loncom/auth/londatecheck.pm - diff

Return to londatecheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.8, 2005/04/07 06:56:21	version 1.9, 2005/04/25 21:21:17
Line 50 sub content_date_check {	Line 50 sub content_date_check {
sub handler {	sub handler {
my ($r)=@_;	my ($r)=@_;
if (&Apache::lonnet::allowed('bre',$r->uri) eq 'F') {	if (&Apache::lonnet::allowed('bre',$r->uri) eq 'F') {
return OK;	return DECLINED;
}	}
my ($status,$open,$close,$msg)=&content_date_check();	my ($status,$open,$close,$msg)=&content_date_check();
if ($status ne 'OPEN') {	if ($status ne 'OPEN') {
Line 68 sub handler {	Line 68 sub handler {

$r->print($msg);	$r->print($msg);
$r->print('</body></html>');	$r->print('</body></html>');
	return OK;
}	}
return OK;	return DECLINED;
}	}
1;	1;