--- trunk/index_DBI_cache.pm	2003/07/04 18:23:00	60
+++ trunk/index_DBI_cache.pm	2003/07/12 16:02:15	88
@@ -17,6 +17,9 @@
 my $c_table;
 my $c_count;
 
+# bench time
+my $t = time();
+
 sub new {
 	my $class = shift;
 	my $self = {};
@@ -99,7 +102,7 @@
 	$index_data = substr($index_data,0,255);
 	my $uc = uc($index_data);
 	if (! $c_table->{$field}->{$ident}->{$uc}) {
-		$sth_cache{$field."insert"}->execute($index_data,$ident,0) || die "cache: $field insert; ".$self->{dbh}->errstr();
+		$sth_cache{$field."insert"}->execute($index_data,$ident,0) || warn "cache: $field insert ($index_data,$ident); ".$self->{dbh}->errstr();
 #print stderr "in index: $index_data\n";
 		$c_table->{$field}->{$ident}->{$uc} = $index_data;
 		$c_count->{$field}->{$ident}->{$uc} = 1;
@@ -191,6 +194,8 @@
 
 		foreach my $table (keys %Table) {
 # FIX
+print STDERR "last operation took ",time()-$t," seconds...\n";
+$t=time();
 print STDERR "creating ord for $table...\n";
 			create_ord($table);
 			undef $sth_cache{$table."select"};