--- loncom/auth/londatecheck.pm 2005/04/25 21:41:37 1.11 +++ loncom/auth/londatecheck.pm 2006/04/13 21:02:34 1.12 @@ -1,5 +1,5 @@ # Checks contentopen/close settings disable subsequent PerlHandlers if not open -# $Id: londatecheck.pm,v 1.11 2005/04/25 21:41:37 albertel Exp $ +# $Id: londatecheck.pm,v 1.12 2006/04/13 21:02:34 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -28,6 +28,7 @@ use strict; package Apache::londatecheck; use Apache::lonnet; use Apache::lonlocal; +use Apache::loncommon(); use Apache::Constants qw(:common :http :methods); sub content_date_check { @@ -60,12 +61,14 @@ sub handler { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; - my $html=&Apache::lonxml::xmlbegin(); - $r->print($html.''.&mt("Not Open").''); - $r->print(&Apache::lonmenu::registerurl(1)); - $r->print(''.&Apache::structuretags::body_tag_start('web')); - $r->print($msg); - $r->print(&Apache::lonxml::xmlend().''); + my $start_page = + &Apache::loncommon::start_page('Not Open',undef, + {'bgcolor' => '#FFFFFF', + 'force_register' => 1,}); + my $end_page = + &Apache::loncommon::end_page({'discussion' => 1}); + $r->print($start_page.$msg.$end_page); + return OK; } return DECLINED;