102 |
|
|
103 |
#$sth_cache{$field."select"}->execute($index_data) || die "cache: $field select; ".$self->{dbh}->errstr(); |
#$sth_cache{$field."select"}->execute($index_data) || die "cache: $field select; ".$self->{dbh}->errstr(); |
104 |
|
|
|
# XXX for some strange reason, it seems that some entries in my |
|
|
# database produce strings which start with null byte. I suspect |
|
|
# this to be bug in OpenIsis 0.9.0. |
|
|
# This should fix it.. |
|
|
$index_data =~ s/^[^\w]+//; |
|
|
$index_data = substr($index_data,0,255); |
|
|
|
|
105 |
my $uc = uc($index_data); |
my $uc = uc($index_data); |
106 |
if (! $c_table->{$field}->{$uc}) { |
if (! $c_table->{$field}->{$uc}) { |
107 |
#print stderr "in index: $index_data\n"; |
#print stderr "in index: $index_data\n"; |