--- loncom/xml/lonxml.pm 2006/04/11 14:07:33 1.403
+++ loncom/xml/lonxml.pm 2006/04/13 19:00:40 1.406
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# XML Parser Module
#
-# $Id: lonxml.pm,v 1.403 2006/04/11 14:07:33 albertel Exp $
+# $Id: lonxml.pm,v 1.406 2006/04/13 19:00:40 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -204,9 +204,9 @@ sub xmlend {
$discussion.='\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\end{document}';
&Apache::lonxml::newparser($parser,\$discussion,'');
return '';
- } else {
- return $discussion.&Apache::loncommon::endbodytag();
}
+
+ return $discussion.&Apache::loncommon::end_page();
}
sub tokeninputfield {
@@ -1505,7 +1505,6 @@ ENDNOTFOUND
my %options = ();
if ($env{'environment.remote'} ne 'off') {
$options{'bgcolor'} = '#FFFFFF';
- $options{'only_body'} = 1;
}
my $start_page = &Apache::loncommon::start_page(undef,undef,
\%options);
@@ -1580,8 +1579,7 @@ sub error {
#public or browsers
$errormsg=&mt("An error occured while processing this resource. The author has been notified.");
}
- my $msg = join('
',@_)."
this error occurred on machine ".
- $perlvar{'lonHostID'}."
";
+ my $msg = join('
',@_);
#notify author
&Apache::lonmsg::author_res_msg($env{'request.filename'},$msg);
#notify course