--- loncom/xml/lonxml.pm	2005/09/26 21:39:53	1.383
+++ loncom/xml/lonxml.pm	2005/10/18 21:46:19	1.384
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.383 2005/09/26 21:39:53 albertel Exp $
+# $Id: lonxml.pm,v 1.384 2005/10/18 21:46:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1109,6 +1109,14 @@ sub parstring {
   return $temp;
 }
 
+sub extlink {
+    my ($res,$exact)=@_;
+    if (!$exact) {
+	$res=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$res);
+    }
+    push(@Apache::lonxml::extlinks,$res)	 
+}
+
 sub writeallows {
     unless ($#extlinks>=0) { return; }
     my $thisurl = &Apache::lonnet::clutter(shift);