--- loncom/publisher/lonunauthorized.pm 2005/04/07 06:56:27 1.4 +++ loncom/publisher/lonunauthorized.pm 2006/04/06 22:15:19 1.5 @@ -1,7 +1,7 @@ # The LearningOnline Network # Unauthorized to access construction space # -# $Id: lonunauthorized.pm,v 1.4 2005/04/07 06:56:27 albertel Exp $ +# $Id: lonunauthorized.pm,v 1.5 2006/04/06 22:15:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -42,19 +42,14 @@ sub handler { return OK if $r->header_only; # ------------------------------------------------------------ Print the screen - $r->print(< - -The LearningOnline Network with CAPA - -ENDDOCUMENT # Figure out who the user is and what they wanted to access my ($ownername,$ownerdomain)= &Apache::loncacc::constructaccess($env{'request.editurl'},$r->dir_config('lonDefDomain')); # print header - $r->print(&Apache::loncommon::bodytag - ("Failed Access to Construction Space",'','','',$ownerdomain)); + $r->print(&Apache::loncommon::start_page("Failed Access to Construction Space", + undef, + {'domain' => $ownerdomain,})); # figure out what went wrong if ($ownerdomain) { @@ -87,7 +82,7 @@ ENDDOCUMENT } } - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return OK; }