--- 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('
',@_)); }