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 -r1.1 -r1.2
--- openacs-4/packages/openfts-driver/www/admin/destroy.tcl	1 Sep 2001 20:33:52 -0000	1.1
+++ openacs-4/packages/openfts-driver/www/admin/destroy.tcl	19 Sep 2001 07:22:49 -0000	1.2
@@ -1,16 +1,26 @@
 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]
 }
 
 catch {
-    db_dml drop_table "drop table txt;"
+    db_dml drop_fts_conf "drop table fts_conf;"
 }
 
+
 catch {
-    db_dml drop_fts_conf "drop table fts_conf;"
+    db_dml drop_trigger "drop trigger ${table_name}_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};"
     }