--- loncom/interface/lonsimplepage.pm 2006/03/21 21:07:31 1.34 +++ loncom/interface/lonsimplepage.pm 2006/03/23 22:32:11 1.35 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Page Editor # -# $Id: lonsimplepage.pm,v 1.34 2006/03/21 21:07:31 albertel Exp $ +# $Id: lonsimplepage.pm,v 1.35 2006/03/23 22:32:11 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -104,7 +104,6 @@ sub handler { if ($env{'form.register'}) { $addentries=' onLoad="'.&Apache::lonmenu::loadevents(). '" onUnload="'.&Apache::lonmenu::unloadevents().'"'; - $r->print(&Apache::lonmenu::registerurl(1)); } # --------------------------------------------------------------- Force Student my $forcestudent=''; @@ -122,10 +121,14 @@ sub handler { if ($caller eq 'grppg') { $title = 'Group Page'; } - $r->print(&Apache::lonhtmlcommon::htmlareaheaders(). - &Apache::loncommon::endheadtag(). - &Apache::loncommon::bodytag($title,$forcestudent,$addentries, - '',$dom,$env{'form.register'})); + my $start_page = + &Apache::loncommon::start_page($title,undef, + {'function' => $forcestudent, + 'add_entries' => $addentries, + 'domain' => $dom, + 'force_register' => + $env{'form.register'},}); + $r->print($start_page); } if ($caller eq 'grppg') { @@ -137,15 +140,15 @@ sub handler { return OK; } } else { + my $msg = + &mt('You do not currently have rights to view this group.'); if ($target ne 'tex') { - $r->print(&Apache::loncommon::endheadtag(). - &Apache::loncommon::bodytag(). - 'You do not currently have rights to view this group.'. + $r->print("

$msg

". &Apache::loncommon::end_page()); - return OK; } else { - $r->print('\textbf{You do not currently have rights to view this group}\end{document}'); + $r->print('\textbf{'.$msg.'}\end{document}'); } + return OK; } }