loncom/auth/londatecheck.pm - diff

Return to londatecheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.2, 2004/06/01 14:40:59	version 1.3, 2004/06/28 16:26:55
Line 32 use Apache::Constants qw(:common :http :	Line 32 use Apache::Constants qw(:common :http :
sub content_date_check {	sub content_date_check {
my $symb=$ENV{'request.symb'};	my $symb=$ENV{'request.symb'};
my $open=&Apache::lonnet::EXT('resource.0.contentopen',$symb);	my $open=&Apache::lonnet::EXT('resource.0.contentopen',$symb);
&Apache::lonnet::logthis("Hrrm got an open of $open");
my $close=&Apache::lonnet::EXT('resource.0.contentclose',$symb);	my $close=&Apache::lonnet::EXT('resource.0.contentclose',$symb);
if ( (defined($open) && $open ne '' && time < $open) \|\|	if ( (defined($open) && $open ne '' && time < $open) \|\|
(defined($close) && $close ne '' && time > $close)) {	(defined($close) && $close ne '' && time > $close)) {
&Apache::lonnet::logthis(" returning CLOSED ");
return ('CLOSED',$open,$close);	return ('CLOSED',$open,$close);
}	}
return ('OPEN',$open,$close);	return ('OPEN',$open,$close);