- if (! $Table{$field}) {
- $self->delete_and_create($field);
-
- my $sql = "select item from $field where upper(item)=upper(?)";
- $sth_cache{$field."select"} = $self->{dbh}->prepare($sql) || die $self->{dbh}->errstr();
-
- $sql = "insert into $field (item,ident,count) values (?,?,?)";
- $sth_cache{$field."insert"} = $self->{dbh}->prepare($sql) || die $self->{dbh}->errstr();
-
- $sql = "update $field set count = count + 1 where item = ? and ident = ?";
- $sth_cache{$field."update"} = $self->{dbh}->prepare($sql) || die $self->{dbh}->errstr();
- }