loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.434, 2006/12/24 22:13:20	version 1.435, 2006/12/28 17:20:36
Line 1572 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 1585 sub error {	Line 1586 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},