[LON-CAPA-cvs] cvs: loncom /xml londefdef.pm

[www]

www		Tue Jun 10 21:22:32 2003 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  Bug #1554: <allow> mechanism did not work anymore, because environment
  httpref entry was full file location ("/home/httpd/html/...").
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.137 loncom/xml/londefdef.pm:1.138
--- loncom/xml/londefdef.pm:1.137	Tue Jun  3 09:15:02 2003
+++ loncom/xml/londefdef.pm	Tue Jun 10 21:22:32 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.137 2003/06/03 13:15:02 sakharuk Exp $
+# $Id: londefdef.pm,v 1.138 2003/06/11 01:22:32 www Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -2198,7 +2198,8 @@
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
     my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1);
     $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
-    $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;
+    $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
+	&Apache::lonnet::clutter($src);
     &image_replication($src);
     my $result;
     if ($target eq 'edit') {