--- loncom/xml/lonxml.pm 2006/03/23 23:48:10 1.402
+++ loncom/xml/lonxml.pm 2006/04/18 20:43:47 1.407
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# XML Parser Module
#
-# $Id: lonxml.pm,v 1.402 2006/03/23 23:48:10 albertel Exp $
+# $Id: lonxml.pm,v 1.407 2006/04/18 20:43:47 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;
}
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);
@@ -1579,9 +1578,10 @@ sub error {
if ( !$symb ) {
#public or browsers
$errormsg=&mt("An error occured while processing this resource. The author has been notified.");
- }
+ }
+ my $msg = join('
',@_);
#notify author
- &Apache::lonmsg::author_res_msg($env{'request.filename'},join('
',@_));
+ &Apache::lonmsg::author_res_msg($env{'request.filename'},$msg);
#notify course
if ( $symb && $env{'request.course.id'} ) {
my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'};
@@ -1599,7 +1599,7 @@ sub error {
my $now=time;
if ($now-$lastnotified{$key}>86400) {
&Apache::lonmsg::user_normal_msg($user,$domain,
- "Error [$declutter]",join('
',@_));
+ "Error [$declutter]",$msg);
&Apache::lonnet::put('nohist_xmlerrornotifications',
{$key => $now},
$cdom,$cnum);