bug_5245 Fix SQL syntax in GetItems
Routine never executed query due to syntax error and returned undef made the call to fetchrow_array explicit as the old fetchrow alias is no longer documented in perldoc DBI Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
parent
1705820ed4
commit
c19a56f9cd
1 changed files with 3 additions and 3 deletions
|
@ -2082,15 +2082,15 @@ returns a count of items from serial matching the subscriptionid
|
|||
sub HasItems {
|
||||
my ($subscriptionid) = @_;
|
||||
my $dbh = C4::Context->dbh;
|
||||
my $query = qq|
|
||||
my $query = q|
|
||||
SELECT COUNT(serialitems.itemnumber)
|
||||
FROM serial
|
||||
LEFT JOIN serialitems USING(serialid)
|
||||
WHERE subscriptionid=? AND serialitems.serialid NOT NULL
|
||||
WHERE subscriptionid=? AND serialitems.serialid IS NOT NULL
|
||||
|;
|
||||
my $sth=$dbh->prepare($query);
|
||||
$sth->execute($subscriptionid);
|
||||
my ($countitems)=$sth->fetchrow;
|
||||
my ($countitems)=$sth->fetchrow_array();
|
||||
return $countitems;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in a new issue