+
+ 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();