Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.139 -r1.140
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	13 Jul 2007 14:14:06 -0000	1.139
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	14 Jul 2007 18:14:26 -0000	1.140
@@ -114,9 +114,10 @@
       -pretty_name "XoWiki Page Instance" -pretty_plural "XoWiki Page Instances" \
       -table_name "xowiki_page_instance"  -id_column "page_instance_id" \
       -cr_attributes {
-        ::Generic::Attribute new -attribute_name page_template -datatype integer 
-        ::Generic::Attribute new -attribute_name instance_attributes -datatype text \
-            -default ""
+        ::Generic::Attribute new -attribute_name page_template \
+            -datatype integer -sqltype integer
+        ::Generic::Attribute new -attribute_name instance_attributes \
+            -datatype text -sqltype long_text -default ""
       } \
       -form ::xowiki::PageInstanceForm \
       -edit_form ::xowiki::PageInstanceEditForm
@@ -131,8 +132,10 @@
       -pretty_name "XoWiki Form" -pretty_plural "XoWiki Forms" \
       -table_name "xowiki_form"  -id_column "xowiki_form_id" \
       -cr_attributes {
-        ::Generic::Attribute new -attribute_name form -datatype text 
-        ::Generic::Attribute new -attribute_name form_constraints -datatype text
+        ::Generic::Attribute new -attribute_name form \
+            -datatype text -sqltype long_text -default ""
+        ::Generic::Attribute new -attribute_name form_constraints \
+            -datatype text -sqltype long_text -default ""
       } \
       -form ::xowiki::FormForm
 
@@ -162,12 +165,12 @@
   ::xo::db::require index -table xowiki_last_visited -col user_id,package_id
   ::xo::db::require index -table xowiki_last_visited -col time
 
-
+  # Oracle has a limit of 3118 characters for keys, therefore no text as type for "tag"
   ::xo::db::require table xowiki_tags \
        "item_id integer references cr_items(item_id) on delete cascade,
         package_id integer,
         user_id integer references users(user_id),
-        tag     [::xo::db::sql map_datatype text],
+        tag     varchar(3000),
         time    timestamp"
   ::xo::db::require index -table xowiki_tags -col user_id,item_id
   ::xo::db::require index -table xowiki_tags -col tag,package_id