my sth self dbh prepare query self- Error err self dbh errstr sth- exe

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
my $sth = $$self{dbh}->prepare($query) || $self->Error(err=>$$self{dbh}->errstr);;
$sth->execute($ENV{CLIENT_ID}) || $self->Error(err=>$$self{dbh}->errstr);
my $names = $sth->{NAME};
while (my $row = $sth->fetchrow_arrayref)
{
push(@OperatorSortId, $$row[0]);
foreach my $n(0..(@{$names}-1))
{
$OperatorsMap{"$$row[0]"}{"$$names[$n]"}=defined $$row[$n]?$$row[$n]:"";
}
}