--- loncom/xml/lonxml.pm 2002/10/25 18:58:19 1.208
+++ loncom/xml/lonxml.pm 2002/10/28 14:00:18 1.209
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# XML Parser Module
#
-# $Id: lonxml.pm,v 1.208 2002/10/25 18:58:19 albertel Exp $
+# $Id: lonxml.pm,v 1.209 2002/10/28 14:00:18 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1381,10 +1381,10 @@ sub error {
&Apache::lonmsg::author_res_msg($ENV{'request.filename'},join('
',@_));
#notify course
if ( $ENV{'request.course.id'} ) {
- my $users=$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'};
+ my (undef,%users)=&Apache::lonfeedback::decide_receiver(undef,0,1,1,1);
my $declutter=&Apache::lonnet::declutter($ENV{'request.filename'});
- foreach my $user (split /\,/, $users) {
- ($user,my $domain) = split /:/, $user;
+ foreach (keys %users) {
+ my ($user,$domain) = split(/:/, $_);
&Apache::lonmsg::user_normal_msg($user,$domain,
"Error [$declutter]",join('
',@_));
}