Index: openacs-4/packages/acs-content-repository/tcl/content-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-type-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-content-repository/tcl/content-type-procs.tcl	13 Jun 2004 18:44:22 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/content-type-procs.tcl	6 Dec 2004 12:02:11 -0000	1.3
@@ -33,6 +33,17 @@
 
     @return NUMBER(38)
 } {
+    if {[db_type] == "oracle"} {
+	switch -- $column_spec {
+	    text { set column_spec clob }
+	    boolean { set column_spec "char(1)" }
+	}
+    } else {
+	switch -- $column_spec {
+	    clob { set column_spec text }
+	}
+    }
+
     return [package_exec_plsql -var_list [list \
         [list content_type $content_type ] \
         [list attribute_name $attribute_name ] \