[LON-CAPA-cvs] cvs: rat / lonpage.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Tue, 04 Apr 2006 19:54:51 -0000
albertel Tue Apr 4 15:54:51 2006 EDT
Modified files:
/rat lonpage.pm
Log:
- start_page (not sure if mathml works in .page ...)
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.73 rat/lonpage.pm:1.74
--- rat/lonpage.pm:1.73 Wed Jan 11 04:13:15 2006
+++ rat/lonpage.pm Tue Apr 4 15:54:51 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Page Handler
#
-# $Id: lonpage.pm,v 1.73 2006/01/11 09:13:15 albertel Exp $
+# $Id: lonpage.pm,v 1.74 2006/04/04 19:54:51 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -360,17 +360,11 @@
unless ($contents) {
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
- $r->print('<html>'."\n".
- '<head>'."\n".
- &Apache::lonmenu::registerurl(1,undef)."\n".
- '</head>'."\n".
- '<body bgcolor="#FFFFFF" onLoad="'
- .&Apache::lonmenu::loadevents.
- '" onUnload="'.&Apache::lonmenu::unloadevents.'">'.
- &Apache::lonmenu::menubuttons(undef,$target,1)
- );
+ $r->print(&Apache::loncommon::start_page(undef,undef,
+ {'force_register' => 1,}));
$r->print(&mt('This page is either empty or it only contains resources that are currently hidden').'. ');
- $r->print('<br /><br />'.&mt('Please use the LON-CAPA navigation arrows to move to another item in the course').'.</body></html>');
+ $r->print('<br /><br />'.&mt('Please use the LON-CAPA navigation arrows to move to another item in the course').
+ &Apache::loncommon::end_page());
} else {
# ------------------------------------------------------------------ Build page
@@ -378,31 +372,20 @@
unless ($target eq 'tex') {
if ($isxml) {
&Apache::loncommon::content_type($r,'text/xml');
- $r->send_http_header;
- $r->print($xmlheader);
} else {
&Apache::loncommon::content_type($r,'text/html');
- $r->send_http_header;
- $r->print('<html>');
}
+ $r->send_http_header;
# ------------------------------------------------------------------------ Head
- $r->print("\n<head>\n".$allmeta);
if ($allscript) {
- $r->print("\n<script language='JavaScript'>\n".
- $allscript."\n</script>\n");
+ $allscript .=
+ "\n<script type=\"text/javascript\">\n".
+ $allscript."\n</script>\n";
}
- $r->print(&Apache::lonmenu::registerurl(1,undef));
- $r->print("\n</head>\n");
# ------------------------------------------------------------------ Start body
- if ($isxml) {
- $r->print($xmlbody);
- } else {
- $r->print(
- '<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonmenu::loadevents.
- '" onUnload="'.&Apache::lonmenu::unloadevents.'">'.
- &Apache::lonmenu::menubuttons(undef,$target,1)
- );
- }
+ $r->print(&Apache::loncommon::start_page(undef,undef,
+ {'force_register' => 1,
+ 'bgcolor' => '#ffffff',}));
# ------------------------------------------------------------------ Start form
if ($nforms) {
$r->print('<form method="post" action="'.
@@ -556,7 +539,7 @@
(($nforms>1)?'submit':'hidden').'"></input></form>');
}
unless ($target eq 'tex') {
- $r->print('</body>'.&Apache::lonxml::xmlend());
+ $r->print(&Apache::loncommon::end_page());
} else {
$r->print('\end{document}'.$number_of_columns);
}