Index: openacs-4/packages/openfts-driver/www/admin/destroy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/openfts-driver/www/admin/destroy.tcl,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/openfts-driver/www/admin/destroy.tcl	5 Sep 2002 11:21:38 -0000	1.3
+++ openacs-4/packages/openfts-driver/www/admin/destroy.tcl	10 Oct 2002 16:52:30 -0000	1.3.2.1
@@ -1,37 +1,17 @@
-catch {
-    set ngroups [db_exec_plsql get_ngroups "select mod from fts_conf where did = -2"]
-    set table_name [lindex [split [db_exec_plsql get_txttid "select mod from fts_conf where did = -1"] .] 0]
-}
+ 
 
+set PREFIX ""
+array set idx [Search::OpenFTS::Index::new $PREFIX]
+Search::OpenFTS::Index::drop idx
 catch {
-    db_dml drop_fts_conf "drop table fts_conf;"
+  db_dml drop_table "drop table $idx(TABLE)"
 }
-
-
 catch {
-    db_dml drop_trigger "drop trigger ${table_name}_utrg;"
+    db_dml drop_function "drop function $idx(TABLE)_utrg ()"
 }
-
 catch {
-    db_dml drop_function "drop function ${table_name}_utrg ();"
-}
-
-catch {
-    db_dml drop_table "drop table ${table_name};"
-}
-
-catch {
-    for { set __i 1 } { $__i <= $ngroups } { incr __i  } {
-	db_dml drop_index "drop table index${__i};"
-    }
-}
-
-catch {
     db_dml drop_fts_unknown_lexem "drop table fts_unknown_lexem;"
 }
 
-catch {
-    db_dml drop_s_fts_unknown_lexem "drop sequence s_fts_unknown_lexem;"
-}
 
-ad_returnredirect "./"
\ No newline at end of file
+ad_returnredirect "./"