Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.19.2.16 -r1.19.2.17
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	15 May 2003 08:45:00 -0000	1.19.2.16
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	23 May 2003 12:28:59 -0000	1.19.2.17
@@ -614,6 +614,7 @@
     -quotehtml:boolean
     -entire_form:boolean
     -no_empty:boolean
+    {-base}
     {-exclude {}}
     {-override {}}
     {vars {}}
@@ -749,6 +750,10 @@
 
     @option no_empty If specified, variables with an empty string value will be suppressed from being exported.
                      This avoids cluttering up the URLs with lots of unnecessary variables.
+    
+    @option base The base URL to make a link to. This will be prepended to the query string 
+                 along with a question mark (?), if the query is non-empty. so the returned
+                 string can be used directly in a link. This is only relevant to URL export.
 
     @author Lars Pind (lars@pinds.com)
     @creation-date December 7, 2000
@@ -956,6 +961,15 @@
     if { $quotehtml_p } {
 	set export_string [ad_quotehtml $export_string]
     }
+
+    # Prepend with the base URL
+    if { [exists_and_not_null base] } {
+        if { ![empty_string_p $export_string] } {
+            set export_string "$base?$export_string"
+        } else {
+            set export_string $base
+        }
+    }
     
     return $export_string
 }