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 ""