[LON-CAPA-cvs] cvs: loncom(version_2_3_X) /xml lonxml.pm

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 29 Dec 2006 20:36:17 -0000


albertel		Fri Dec 29 15:36:17 2006 EDT

  Modified files:              (Branch: version_2_3_X)
    /loncom/xml	lonxml.pm 
  Log:
  - backport 1.435
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.430.2.1 loncom/xml/lonxml.pm:1.430.2.2
--- loncom/xml/lonxml.pm:1.430.2.1	Wed Dec 27 22:00:24 2006
+++ loncom/xml/lonxml.pm	Fri Dec 29 15:36:13 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.430.2.1 2006/12/28 03:00:24 albertel Exp $
+# $Id: lonxml.pm,v 1.430.2.2 2006/12/29 20:36:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1563,6 +1563,7 @@
 	    my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
 	    my (undef,%users)=&Apache::lonfeedback::decide_receiver(undef,0,1,1,1);
 	    my $declutter=&Apache::lonnet::declutter($env{'request.filename'});
+            my $baseurl = &Apache::lonnet::clutter($declutter);
 	    my @userlist;
 	    foreach (keys %users) {
 		my ($user,$domain) = split(/:/, $_);
@@ -1576,7 +1577,7 @@
                     my $title = &Apache::lonnet::gettitle($symb);
                     my $sentmessage;
 		    &Apache::lonmsg::user_normal_msg($user,$domain,
-		        "Error [$title]",$msg,'','','','',
+		        "Error [$title]",$msg,'',$baseurl,'','',
                         \$sentmessage,$symb,$title,1);
 		    &Apache::lonnet::put('nohist_xmlerrornotifications',
 					 {$key => $now},