Index: openacs-4/packages/acs-tcl/tcl/admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-procs.tcl,v
diff -u -N -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	20 Feb 2002 21:35:28 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	13 Mar 2002 18:48:58 -0000	1.4.2.1
@@ -40,6 +40,24 @@
     set host [ns_set iget [ad_conn headers] "host"]
     if { [regexp {^(.*?):(.*)$} $host match host port] == 0 || [string compare $port $http_port] == 0 } {
 	set url [ad_conn url]
+
+        # ArsDigita probably meant to pass along any form variables (I hope)...
+        set form [ns_getform]
+
+        if {$form != ""} {
+            set size [ns_set size $form]
+            set url_args [list]
+ 
+            for {set i 0} {$i < $size} {incr i} {
+                set key [ns_set key $form $i]
+                set val [ns_set value $form $i]
+                lappend url_args [ns_urlencode $key]=[ns_urlencode $val]
+            }
+ 
+           append url "?[join $url_args &]"
+        }
+        
+
 	if { $ssl_port == 443 } {
 	    set redir "https://$host$url"
 	} else {