Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v diff -u -r1.68 -r1.69 --- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl 16 Jul 2007 00:47:25 -0000 1.68 +++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl 16 Jul 2007 00:54:16 -0000 1.69 @@ -738,9 +738,7 @@ ns_db dml $db "create function $function_name () returns varchar as ' [DoubleApos $proc_sql] ' language 'plpgsql'" -ns_log notice "!!! create function $function_name () returns varchar as ' - [DoubleApos $proc_sql] - ' language 'plpgsql'" + set ret_val [ns_db 0or1row $db "select $function_name ()"] # drop the anonymous function (OpenACS - Dan)