99 |
$index_data = substr($index_data,0,255); |
$index_data = substr($index_data,0,255); |
100 |
my $uc = uc($index_data); |
my $uc = uc($index_data); |
101 |
if (! $c_table->{$field}->{$ident}->{$uc}) { |
if (! $c_table->{$field}->{$ident}->{$uc}) { |
102 |
$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(); |
103 |
#print stderr "in index: $index_data\n"; |
#print stderr "in index: $index_data\n"; |
104 |
$c_table->{$field}->{$ident}->{$uc} = $index_data; |
$c_table->{$field}->{$ident}->{$uc} = $index_data; |
105 |
$c_count->{$field}->{$ident}->{$uc} = 1; |
$c_count->{$field}->{$ident}->{$uc} = 1; |