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.28 -r1.29
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	3 Feb 2003 13:56:42 -0000	1.28
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	15 Feb 2003 23:55:59 -0000	1.29
@@ -1300,10 +1300,27 @@
 }
 
 
+ad_proc -public util_get_current_url {} {
+    Returns a URL for re-issuing the current request, with query variables.
+    If a form submission is present, that is converted into query vars as well.
 
+    @return URL for the current page
 
+    @author Lars Pind (lars@pinds.com)
+    @creation-date February 11, 2003
+} {
+    set url [ad_conn url]
 
+    set query [ns_getform]
+    if { $query != "" } {
+        append url "?[export_entire_form_as_url_vars]"
+    }
 
+    return $url
+}
+
+
+
 proc with_catch {error_var body on_error} { 
     upvar 1 $error_var $error_var 
     global errorInfo errorCode 
@@ -3648,3 +3665,5 @@
 
 # don't want to barf if, per chance, a newer version is already available
 catch { package provide base64 2.2 }
+
+