Есть у меня функция проверки которая должна проверять есть ли такой договор в базе и если есть то выводить ошибку:
sub check_iptel_dogs_dogname
{
my $doc = shift;
my $fields = shift;
my $cData= $doc->getCData();
my $dbh = $common->dbConnect(30);
my $DogName = $cData->{10004374};
my $sth = $dbh->prepare("SELECT DogName FROM Dogs Where DogName=\\"$DogName\\"");
$sth->execute;
my $num = $sth -> {NUM_OF_FIELDS};
if($num > 0){
return {
message => "Такой договор уже существует введите другой.",
is_error => 1,
fix_type =>\'replace\',
fields => [10004374],
}
}
else{return {};}
}а она что бы я не вводил говорит что договор есть в чем ошибся понять не могу прочитал кучу документации вроде должно работать а нет.