loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.430, 2006/12/11 00:42:47	version 1.430.2.2, 2006/12/29 20:36:13
Line 1563 sub error {	Line 1563 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 1574 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 [$declutter]",$msg);	"Error [$title]",$msg,'',$baseurl,'','',
	\$sentmessage,$symb,$title,1);
&Apache::lonnet::put('nohist_xmlerrornotifications',	&Apache::lonnet::put('nohist_xmlerrornotifications',
{$key => $now},	{$key => $now},
$cdom,$cnum);	$cdom,$cnum);