loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.142, 2001/12/21 22:44:06	version 1.143, 2002/01/01 16:37:20
Line 51	Line 51
# 8/7,8/9,8/10,8/11,8/15,8/16,8/17,8/18,8/20,8/23,8/24 Gerd Kortemeyer	# 8/7,8/9,8/10,8/11,8/15,8/16,8/17,8/18,8/20,8/23,8/24 Gerd Kortemeyer
# Guy Albertelli	# Guy Albertelli
# 9/26 Gerd Kortemeyer	# 9/26 Gerd Kortemeyer
	# Dec Guy Albertelli
	# YEAR=2002
	# 1/1 Gerd Kortemeyer
	#

package Apache::lonxml;	package Apache::lonxml;
use vars	use vars
Line 1122 sub error {	Line 1125 sub error {
#notify course	#notify course
if ( $ENV{'request.course.id'} ) {	if ( $ENV{'request.course.id'} ) {
my $users=$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'};	my $users=$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'};
	my $declutter=&Apache::lonnet::declutter($ENV{'request.filename'});
foreach my $user (split /\,/, $users) {	foreach my $user (split /\,/, $users) {
($user,my $domain) = split /:/, $user;	($user,my $domain) = split /:/, $user;
&Apache::lonmsg::user_normal_msg($user,$domain,"Error in $ENV{'request.filename'}",$_[0]);	&Apache::lonmsg::user_normal_msg($user,$domain,
	"Error [$declutter]",$_[0]);
}	}
}	}