Index: openacs-4/packages/ecommerce/tcl/ec-audit-trail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ec-audit-trail-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/ecommerce/tcl/ec-audit-trail-procs.tcl	15 Mar 2004 04:28:00 -0000	1.7
+++ openacs-4/packages/ecommerce/tcl/ec-audit-trail-procs.tcl	21 Apr 2008 14:18:28 -0000	1.8
@@ -234,8 +234,16 @@
 
     uplevel {
 
-        set_variables_after_query
+        # inlining old set_variables_after_query
+	# TODO: improve entire audit code!
 
+	set set_variables_after_query_i 0
+	set set_variables_after_query_limit [ns_set size $selection]
+	while {$set_variables_after_query_i<$set_variables_after_query_limit} {
+	    set [ns_set key $selection $set_variables_after_query_i] [ns_set value $selection $set_variables_after_query_i]
+	    incr set_variables_after_query_i
+	}
+
         # Loop through each column key and value in the selection
         set selection_counter_i 0
         set modification_count 0