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};"
     }
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 -r1.1 -r1.2
--- openacs-4/packages/openfts-driver/www/admin/initialize-2.tcl	1 Sep 2001 20:33:52 -0000	1.1
+++ openacs-4/packages/openfts-driver/www/admin/initialize-2.tcl	19 Sep 2001 07:21:34 -0000	1.2
@@ -29,15 +29,31 @@
 ignore_headline [list $ignore_headline]
 "
 
-db_dml create_table "create table $table_name ( $table_id int not null primary key, $use_index_array int\[\] );"
 
+
 array set idx [Search::OpenFTS::Index::init opt]
 
 if {[array size idx] == 0} {
     error "QQQ: Init failed"
     exit
 }
 
+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(); \
+			return new; \
+			end;' language 'plpgsql';"
+
+db_dml create_trigger "create trigger ${table_name}_utrg before update on ${table_name} \
+	               for each row execute procedure ${table_name}_utrg ();"
+
+
+
 Search::OpenFTS::Index::create_index idx
 
 ad_returnredirect ""