|
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'}; |