Index: openacs-4/packages/openfts-driver/www/admin/initialize-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/openfts-driver/www/admin/initialize-2.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/openfts-driver/www/admin/initialize-2.tcl	5 Sep 2002 11:21:38 -0000	1.3
+++ openacs-4/packages/openfts-driver/www/admin/initialize-2.tcl	30 Nov 2002 17:41:39 -0000	1.4
@@ -8,41 +8,44 @@
     table_name
     table_id
     dict
-    parser
     numbergroup
     ignore_headline
     ignore_id_index
     map
     use_index_table
-    use_index_array
 }
 
-array set opt "
-txttid          ${table_name}.${table_id}
-numbergroup     $numbergroup
-parser          $parser
-use_index_array $use_index_array
-use_index_table $use_index_table
-dict            [list $dict]
-map             [list $map]
-ignore_id_index [list $ignore_id_index]
-ignore_headline [list $ignore_headline]
-"
+set DICT_UNKNOWN_LEXEM_TABLE "fts_unknown_lexem"
 
+if [catch {
+    db_dml create_table "create table $table_name ( ${table_id} int not null primary key, path varchar unique, fts_index txtidx, last_modified timestamp );"
+} err] {
+    error "$err"
+    return
+}
 
+set dat "
+  txttid          ${table_name}.${table_id} 
+  use_index_table $use_index_table 
+  txtidx_field    fts_index 
+  numbergroup     $numbergroup 
+  ignore_id_index [list $ignore_id_index] 
+  ignore_headline [list $ignore_headline] 
+  map             [list $map] 
+  dict            [list $dict]"
 
+ns_log Notice "dat = $dat"
+array set opt $dat
+
+
+
 array set idx [Search::OpenFTS::Index::init opt]
 
 if {[array size idx] == 0} {
     error "QQQ: Init failed"
-    exit
+    return
 }
 
-db_dml create_table "create table $table_name ( \ 
-                     $table_id int not null primary key, \
-		     $use_index_array int\[\], \
-		     last_modified timestamp default now() not null);"
-
 db_dml create_function "create function ${table_name}_utrg () returns opaque as ' \
 	                begin \
 			new.last_modified := now(); \
@@ -53,7 +56,7 @@
 	               for each row execute procedure ${table_name}_utrg ();"
 
 
-
 Search::OpenFTS::Index::create_index idx
+Search::OpenFTS::DESTROY
 
 ad_returnredirect "./"