--- loncom/xml/lonxml.pm	2001/12/21 22:44:06	1.142
+++ loncom/xml/lonxml.pm	2002/01/01 16:37:20	1.143
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.142 2001/12/21 22:44:06 albertel Exp $
+# $Id: lonxml.pm,v 1.143 2002/01/01 16:37:20 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -51,7 +51,10 @@
 # 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
 # 9/26 Gerd Kortemeyer
-
+# Dec Guy Albertelli
+# YEAR=2002
+# 1/1 Gerd Kortemeyer
+#
 
 package Apache::lonxml; 
 use vars 
@@ -1122,9 +1125,11 @@ sub error {
     #notify course
     if ( $ENV{'request.course.id'} ) {
       my $users=$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'};
+      my $declutter=&Apache::lonnet::declutter($ENV{'request.filename'});
       foreach my $user (split /\,/, $users) {
 	($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]);
       }
     }