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.36 -r1.37
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	28 Aug 2003 09:41:43 -0000	1.36
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	10 Sep 2003 12:30:07 -0000	1.37
@@ -366,7 +366,17 @@
     }
 }
 
+ad_proc db_boolean { bool } {
+    Converts a Tcl boolean (1/0) into a SQL boolean (t/f)
+} {
+    if { $bool } {
+        return "t"
+    } else {
+        return "f"
+    }
+}
 
+
 ad_proc db_nextval {{ -dbn "" } sequence } {
 
     Returns the next value for a sequence. This can utilize a pool of