loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.430.2.3 and 1.433

version 1.430.2.3, 2007/01/08 18:45:31	version 1.433, 2006/12/20 22:51:27
Line 88 use Apache::loncommon();	Line 88 use Apache::loncommon();
use Apache::lonfeedback();	use Apache::lonfeedback();
use Apache::lonmsg();	use Apache::lonmsg();
use Apache::loncacc();	use Apache::loncacc();
	use Apache::lonmaxima();
use Apache::lonlocal;	use Apache::lonlocal;

#================================================== Main subroutine: xmlparse	#================================================== Main subroutine: xmlparse
Line 674 sub init_safespace {	Line 675 sub init_safespace {
'&chem_standard_order');	'&chem_standard_order');
$safehole->wrap(\&Apache::response::check_status,$safeeval,'&check_status');	$safehole->wrap(\&Apache::response::check_status,$safeeval,'&check_status');

	$safehole->wrap(\&Apache::lonmaxima::maxima_eval,$safeeval,'&maxima_eval');
	$safehole->wrap(\&Apache::lonmaxima::maxima_check,$safeeval,'&maxima_check');
	$safehole->wrap(\&Apache::lonmaxima::maxima_cas_formula_fix,$safeeval,
	'&maxima_cas_formula_fix');

	$safehole->wrap(\&Apache::caparesponse::capa_formula_fix,$safeeval,
	'&capa_formula_fix');

$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin');	$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin');
$safehole->wrap(\&Math::Cephes::acos,$safeeval,'&acos');	$safehole->wrap(\&Math::Cephes::acos,$safeeval,'&acos');
$safehole->wrap(\&Math::Cephes::atan,$safeeval,'&atan');	$safehole->wrap(\&Math::Cephes::atan,$safeeval,'&atan');
Line 1457 ENDNOTFOUND	Line 1466 ENDNOTFOUND
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['editmode']);	['editmode']);
}	}
	&Apache::lonnet::logthis("edit mode is ".$env{'form.editmode'});
if (!$env{'form.editmode'} \|\| $env{'form.viewmode'} \|\| $env{'form.discardview'}) {	if (!$env{'form.editmode'} \|\| $env{'form.viewmode'} \|\| $env{'form.discardview'}) {
$result = &Apache::lonxml::xmlparse($request,$target,$filecontents,	$result = &Apache::lonxml::xmlparse($request,$target,$filecontents,
'',%mystyle);	'',%mystyle);
Line 1562 sub error {	Line 1572 sub error {
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
my (undef,%users)=&Apache::lonfeedback::decide_receiver(undef,0,1,1,1);	my (undef,%users)=&Apache::lonfeedback::decide_receiver(undef,0,1,1,1);
my $declutter=&Apache::lonnet::declutter($env{'request.filename'});	my $declutter=&Apache::lonnet::declutter($env{'request.filename'});
my $baseurl = &Apache::lonnet::clutter($declutter);
my @userlist;	my @userlist;
foreach (keys %users) {	foreach (keys %users) {
my ($user,$domain) = split(/:/, $_);	my ($user,$domain) = split(/:/, $_);
Line 1573 sub error {	Line 1582 sub error {
$cdom,$cnum);	$cdom,$cnum);
my $now=time;	my $now=time;
if ($now-$lastnotified{$key}>86400) {	if ($now-$lastnotified{$key}>86400) {
my $title = &Apache::lonnet::gettitle($symb);
my $sentmessage;
&Apache::lonmsg::user_normal_msg($user,$domain,	&Apache::lonmsg::user_normal_msg($user,$domain,
"Error [$title]",$msg,'',$baseurl,'','',	"Error [$declutter]",$msg);
\$sentmessage,$symb,$title,1);
&Apache::lonnet::put('nohist_xmlerrornotifications',	&Apache::lonnet::put('nohist_xmlerrornotifications',
{$key => $now},	{$key => $now},
$cdom,$cnum);	$cdom,$cnum);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.430.2.3
changed lines
	Added in v.1.433