--- loncom/xml/lonxml.pm 2004/03/02 22:39:12 1.306
+++ loncom/xml/lonxml.pm 2004/03/09 20:37:58 1.309
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# XML Parser Module
#
-# $Id: lonxml.pm,v 1.306 2004/03/02 22:39:12 albertel Exp $
+# $Id: lonxml.pm,v 1.309 2004/03/09 20:37:58 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -409,7 +409,7 @@ sub latex_special_symbols {
$string=~s/\~/\\char126 /g;
#fixup & if it doesn't look like
# { or α
- $string=~s/(&(?!((\#[0-9]+)|([a-z]+));))/\\$1/gi;
+ $string=~s/(&(?!((\#[0-9]+)|([a-z][a-z0-9]*));))/\\$1/gi;
$string=~s/([^&\\])\#/$1\\#/g;
$string=~s/\#\#/\#\\#/g;
$string=~s/(\$|_|{|})/\\$1/g;
@@ -751,7 +751,6 @@ sub init_safespace {
$safehole->wrap(\&Math::Random::random_get_seed,$safeeval,'&random_get_seed');
$safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_seed');
$safehole->wrap(\&Apache::lonxml::error,$safeeval,'&LONCAPA_INTERNAL_ERROR');
- $safehole->wrap(\&Apache::lonxml::debug,$safeeval,'&DEBUG');
#need to inspect this class of ops
# $safeeval->deny(":base_orig");
@@ -1238,8 +1237,10 @@ sub handler {
unless ($ENV{'request.state'} eq 'published') {
if (($ENV{'form.savethisfile'}) || ($ENV{'form.attemptclean'})) {
if (&storefile($file,$ENV{'form.filecont'})) {
- $request->print("".&mt('Updated').": ".
-&Apache::lonlocal::locallocaltime(time)." ");
+ &Apache::lonxml::info("".
+ &mt('Updated').": ".
+ &Apache::lonlocal::locallocaltime(time).
+ " ");
}
}
}
@@ -1291,7 +1292,9 @@ ENDNOTFOUND
if ($ENV{'form.editmode'} && (!($ENV{'form.viewmode'}))) {
my $displayfile=$request->uri;
$displayfile=~s/^\/[^\/]*//;
- $result=''.$displayfile.
+ $result=''.
+ &Apache::lonxml::message_location().''.
+ $displayfile.
'
';
$result=&inserteditinfo($result,$filecontents,$filetype);
}
@@ -1299,7 +1302,7 @@ ENDNOTFOUND
if ($filetype eq 'html') { writeallows($request->uri); }
-
+ &Apache::lonxml::add_messages(\$result);
$request->print($result);
return OK;
@@ -1333,11 +1336,13 @@ sub error {
if (!$request) { $request=Apache->request; }
if (($Apache::lonxml::debug eq 1) || ($ENV{'request.state'} eq 'construct') ) {
# If printing in construction space, put the error inside
- $request->print($Apache::lonxml::warnings_error_header.
- "ERROR:".join("
\n",@_)."
\n");
+ push(@Apache::lonxml::error_messages,
+ $Apache::lonxml::warnings_error_header.
+ "ERROR:".join("
\n",@_)."
\n");
$Apache::lonxml::warnings_error_header='';
} else {
- $request->print("An Error occured while processing this resource. The instructor has been notified.
");
+ push(@Apache::lonxml::error_messages,
+ "An Error occured while processing this resource. The instructor has been notified.
");
#notify author
&Apache::lonmsg::author_res_msg($ENV{'request.filename'},join('
',@_));
#notify course
@@ -1360,13 +1365,38 @@ sub warning {
if ($ENV{'request.state'} eq 'construct' || $Apache::lonxml::debug) {
my $request=$Apache::lonxml::request;
if (!$request) { $request=Apache->request; }
- $request->print($Apache::lonxml::warnings_error_header.
- "WARNING:".join('
',@_)."
\n");
+ push(@Apache::lonxml::warning_messages,
+ $Apache::lonxml::warnings_error_header.
+ "WARNING:".join('
',@_)."
\n");
$Apache::lonxml::warnings_error_header='';
}
}
}
+sub info {
+ if ($ENV{'form.grade_target'} ne 'tex'
+ && $ENV{'request.state'} eq 'construct') {
+ push(@Apache::lonxml::info_messages,join('
',@_)."
\n");
+ }
+}
+
+sub message_location {
+ return '__LONCAPA_INTERNAL_MESSAGE_LOCATION__';
+}
+
+sub add_messages {
+ my ($msg)=@_;
+ my $result=join(' ',
+ @Apache::lonxml::info_messages,
+ @Apache::lonxml::error_messages,
+ @Apache::lonxml::warning_messages);
+ undef(@Apache::lonxml::info_messages);
+ undef(@Apache::lonxml::error_messages);
+ undef(@Apache::lonxml::warning_messages);
+ $$msg=~s/__LONCAPA_INTERNAL_MESSAGE_LOCATION__/$result/;
+ $$msg=~s/__LONCAPA_INTERNAL_MESSAGE_LOCATION__//g;
+}
+
sub get_param {
my ($param,$parstack,$safeeval,$context,$case_insensitive) = @_;
if ( ! $context ) { $context = -1; }