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

[albertel]

albertel		Fri Jun 17 13:51:18 2005 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - this is what clutter takes care of
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.376 loncom/xml/lonxml.pm:1.377
--- loncom/xml/lonxml.pm:1.376	Wed Jun 15 09:06:41 2005
+++ loncom/xml/lonxml.pm	Fri Jun 17 13:51:15 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.376 2005/06/15 13:06:41 raeburn Exp $
+# $Id: lonxml.pm,v 1.377 2005/06/17 17:51:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1065,12 +1065,7 @@
 
 sub writeallows {
     unless ($#extlinks>=0) { return; }
-    my $thisurl = &Apache::lonnet::declutter(shift);
-    if ($thisurl =~ /^uploaded/) {
-        $thisurl = '/'.$thisurl;
-    } else {
-        $thisurl='/res/'.$thisurl;
-    }
+    my $thisurl = &Apache::lonnet::clutter(shift);
     if ($env{'httpref.'.$thisurl}) {
 	$thisurl=$env{'httpref.'.$thisurl};
     }