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.57 -r1.58
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	14 Mar 2008 10:29:05 -0000	1.57
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	14 Mar 2008 20:04:57 -0000	1.58
@@ -99,6 +99,7 @@
     set uniquepart [expr {$unique ? "UNIQUE" : ""}]
     set name [::xo::db::mk_sql_constraint_name $table $colpart $suffix]
     if {![db_0or1row [my qn ""] [subst [my set [db_driverkey ""]_index_exists]]]} {
+      if {[db_driverkey ""] eq "oracle"} {set using ""}
       set using [expr {$using ne "" ? "using $using" : ""}]
       db_dml [my qn create-index-$name] \
           "create $uniquepart index $name ON $table $using ($col)"
@@ -211,6 +212,7 @@
         string    { set type text }
         long_text { set type text }
         date      { set type timestampz }
+        ltree     { set type [expr {[::xo::db::has_ltree] ? "ltree" : "text" }] }
       }
       return $type
     }
@@ -257,6 +259,7 @@
         text      { set type varchar2(4000) }
         long_text { set type clob }
         boolean   { set type char(1) }
+        ltree     { set type varchar2(1000) }
       }
       return $type
     }