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 { |
137 |
$sth->execute() || die "execute: $sql; ".$self->{dbh}->errstr(); |
$sth->execute() || die "execute: $sql; ".$self->{dbh}->errstr(); |
138 |
my @arr; |
my @arr; |
139 |
while (my $row = $sth->fetchrow_hashref) { |
while (my $row = $sth->fetchrow_hashref) { |
140 |
$row->{item} = HTML::Entities::encode($row->{item}); |
$row->{item} = HTML::Entities::encode($row->{item},'<>&"'); |
141 |
push @arr,$row; |
push @arr,$row; |
142 |
} |
} |
143 |
return @arr; |
return @arr; |
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(); |