82 |
if (! $sth->fetchrow_hashref) { |
if (! $sth->fetchrow_hashref) { |
83 |
my $sql = "insert into $field (item,ident,count) values (?,?,?)"; |
my $sql = "insert into $field (item,ident,count) values (?,?,?)"; |
84 |
my $sth = $self->{dbh}->prepare($sql) || die $self->{dbh}->errstr(); |
my $sth = $self->{dbh}->prepare($sql) || die $self->{dbh}->errstr(); |
85 |
|
$index_data = substr($index_data,0,255); |
86 |
$sth->execute($index_data,$ident,1) || die "sql: $sql; ".$self->{dbh}->errstr(); |
$sth->execute($index_data,$ident,1) || die "sql: $sql; ".$self->{dbh}->errstr(); |
87 |
#print stderr "in index: $index_data\n"; |
#print stderr "in index: $index_data\n"; |
88 |
} else { |
} else { |
154 |
|
|
155 |
$self->{dbh}->begin_work || die $self->{dbh}->errstr(); |
$self->{dbh}->begin_work || die $self->{dbh}->errstr(); |
156 |
|
|
157 |
my $sql = "select oid from $table order by item"; |
my $sql = "select oid from $table order by upper(item)"; |
158 |
my $sth = $self->{dbh}->prepare($sql) || die "sql: $sql; ".$self->{dbh}->errstr(); |
my $sth = $self->{dbh}->prepare($sql) || die "sql: $sql; ".$self->{dbh}->errstr(); |
159 |
$sql = "update $table set ord=? where oid=?"; |
$sql = "update $table set ord=? where oid=?"; |
160 |
my $sth_update = $self->{dbh}->prepare($sql) || die "sql: $sql; ".$self->{dbh}->errstr(); |
my $sth_update = $self->{dbh}->prepare($sql) || die "sql: $sql; ".$self->{dbh}->errstr(); |