Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	16 Apr 2001 21:59:47 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	20 Apr 2001 02:03:49 -0000	1.4
@@ -82,6 +82,9 @@
 
     ns_log Notice "PLPGSQL: converted: $sql to: select $function_name ()"
 
+    # insert tcl variable values (Openacs - Dan)
+    set sql [uplevel 2 [list subst -nocommands -nobackslashes $sql]]
+
     # create a function definition statement for the inline code 
     # binding is emulated in tcl. (OpenACS - Dan)
 
@@ -201,6 +204,9 @@
     # Query Dispatcher (OpenACS - ben)
     set sql [db_qd_replace_sql $statement_name $sql]
 
+    # insert tcl variable values (Openacs - Dan)
+    set sql [uplevel 2 [list subst -nocommands -nobackslashes $sql]]
+
     ns_log Notice "POST-QD: the SQL is $sql"
 
     set errno [catch {