$sth=$dbh->prepare($strsth);
$sth->execute($value);
- my $total;
+ $total=0;
my @catresults;
my $javalue;
while (my ($value,$ctresults)=$sth->fetchrow) {
}
- my $strsth="Select distinct authtypecode from marc_subfield_structure where (";
+ $strsth="Select distinct authtypecode from marc_subfield_structure where (";
foreach my $listtags (@tags){
my @taglist=split /,/,$listtags;
foreach my $curtag (@taglist){
}
$strsth=~s/ OR$/)/;
- my $strsth = $strsth." and authtypecode is not NULL";
+ $strsth .= " and authtypecode is not NULL";
# warn $strsth;
- my $sth=$dbh->prepare($strsth);
+ $sth=$dbh->prepare($strsth);
$sth->execute;
#