loncom/auth/londatecheck.pm - diff

Return to londatecheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.11, 2005/04/25 21:41:37	version 1.12, 2006/04/13 21:02:34
Line 28 use strict;	Line 28 use strict;
package Apache::londatecheck;	package Apache::londatecheck;
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::loncommon();
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);

sub content_date_check {	sub content_date_check {
Line 60 sub handler {	Line 61 sub handler {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
my $html=&Apache::lonxml::xmlbegin();	my $start_page =
$r->print($html.'<head><title>'.&mt("Not Open").'</title>');	&Apache::loncommon::start_page('Not Open',undef,
$r->print(&Apache::lonmenu::registerurl(1));	{'bgcolor' => '#FFFFFF',
$r->print('</head>'.&Apache::structuretags::body_tag_start('web'));	'force_register' => 1,});
$r->print($msg);	my $end_page =
$r->print(&Apache::lonxml::xmlend().'</html>');	&Apache::loncommon::end_page({'discussion' => 1});
	$r->print($start_page.$msg.$end_page);

return OK;	return OK;
}	}
return DECLINED;	return DECLINED;