--- loncom/xml/lonxml.pm	2005/06/15 13:06:41	1.376
+++ loncom/xml/lonxml.pm	2005/06/17 17:51:15	1.377
@@ -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 parstring {
 
 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};
     }