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.1 and 1.430.2.3

version 1.430.2.1, 2006/12/28 03:00:24	version 1.430.2.3, 2007/01/08 18:45:31
Line 1457 ENDNOTFOUND	Line 1457 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 1563 sub error {	Line 1562 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 1576 sub error {	Line 1576 sub error {
my $title = &Apache::lonnet::gettitle($symb);	my $title = &Apache::lonnet::gettitle($symb);
my $sentmessage;	my $sentmessage;
&Apache::lonmsg::user_normal_msg($user,$domain,	&Apache::lonmsg::user_normal_msg($user,$domain,
"Error [$title]",$msg,'','','','',	"Error [$title]",$msg,'',$baseurl,'','',
\$sentmessage,$symb,$title,1);	\$sentmessage,$symb,$title,1);
&Apache::lonnet::put('nohist_xmlerrornotifications',	&Apache::lonnet::put('nohist_xmlerrornotifications',
{$key => $now},	{$key => $now},

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

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