Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl 29 Dec 2006 13:30:37 -0000 1.1 +++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl 29 Dec 2006 16:58:10 -0000 1.2 @@ -1,10 +1,18 @@ +ad_library { + XOTcl API for low level db abstraction + + @author Gustaf Neumann + @creation-date 2006-12-28 + @cvs-id $Id$ +} + namespace eval ::xo::db { ::xotcl::Object require require proc table {name definition} { if {![db_0or1row check-$name \ "select 1 from pg_tables where tablename = '$name'"]} { - db_dml create-$name "create table $name($definition)" + db_dml create-$name "create table $name ($definition)" } }