Lines 2619-2627
more.
Link Here
|
2619 |
=cut |
2619 |
=cut |
2620 |
|
2620 |
|
2621 |
sub CountItemsIssued { |
2621 |
sub CountItemsIssued { |
2622 |
my ($biblionumber) = @_; |
2622 |
my ($params) = @_; |
|
|
2623 |
my $biblionumber = $params->{'biblionumber'}; |
2624 |
my $count_on_order = $params->{'count_on_order'}; |
2625 |
|
2626 |
my $sql = 'SELECT COUNT(*) AS issuedCount FROM items LEFT JOIN issues ON items.itemnumber = issues.itemnumber WHERE items.biblionumber = ?'; |
2627 |
|
2628 |
if ( $count_on_order ) { |
2629 |
$sql .= ' AND ( issues.itemnumber IS NOT NULL OR items.notforloan < 0 )'; |
2630 |
} else { |
2631 |
$sql .= ' AND issues.itemnumber IS NOT NULL'; |
2632 |
} |
2633 |
|
2623 |
my $dbh = C4::Context->dbh; |
2634 |
my $dbh = C4::Context->dbh; |
2624 |
my $sth = $dbh->prepare('SELECT COUNT(*) as issuedCount FROM items, issues WHERE items.itemnumber = issues.itemnumber AND items.biblionumber = ?'); |
2635 |
my $sth = $dbh->prepare( $sql ); |
2625 |
$sth->execute($biblionumber); |
2636 |
$sth->execute($biblionumber); |
2626 |
my $row = $sth->fetchrow_hashref(); |
2637 |
my $row = $sth->fetchrow_hashref(); |
2627 |
return $row->{'issuedCount'}; |
2638 |
return $row->{'issuedCount'}; |