--- rat/lonpage.pm 2003/02/14 19:35:55 1.49
+++ rat/lonpage.pm 2003/07/19 13:11:41 1.52
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Page Handler
#
-# $Id: lonpage.pm,v 1.49 2003/02/14 19:35:55 www Exp $
+# $Id: lonpage.pm,v 1.52 2003/07/19 13:11:41 ng Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -239,6 +239,8 @@ sub handler {
}
}
my $output=Apache::lonnet::ssi($src,%posthash);
+ $output=~
+ s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
if ($target eq 'tex') {
$output =~ s/^([^&]+)\\begin{document}//;
$output =~ s/\\end{document}//;
@@ -348,8 +350,6 @@ sub handler {
}
# ------------------------------------------------------------------------ Head
$r->print("\n\n".$allmeta);
- $allscript=~
- s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
if ($allscript) {
$r->print("\n\n");
@@ -360,7 +360,11 @@ sub handler {
if ($isxml) {
$r->print($xmlbody);
} else {
- $r->print('');
+ $r->print(
+ ''.
+ &Apache::lonmenu::menubuttons(undef,$target,1)
+ );
}
# ------------------------------------------------------------------ Start form
if ($nforms) {
@@ -410,15 +414,18 @@ sub handler {
&Apache::lonnet::declutter($hash{'src_'.$rid});
$metainfo.=
''.
+# '&command=submission" target="LONcatInfo">'.
+ '&command=submission">'.
'
'.
''.
''.
+# '&command=gradingmenu" target="LONcatInfo">'.
+ '&command=gradingmenu">'.
'
'.
''.
''.
+# '" target="LONcatInfo">'.
+ '" >'.
'
'.
'';
}