|
Lines 140-147
BEGIN {
Link Here
|
| 140 |
IsItemOnHoldAndFound |
140 |
IsItemOnHoldAndFound |
| 141 |
|
141 |
|
| 142 |
GetMaxPatronHoldsForRecord |
142 |
GetMaxPatronHoldsForRecord |
| 143 |
|
|
|
| 144 |
&GetHoldGroupHolds |
| 145 |
); |
143 |
); |
| 146 |
@EXPORT_OK = qw( MergeHolds ); |
144 |
@EXPORT_OK = qw( MergeHolds ); |
| 147 |
} |
145 |
} |
|
Lines 2281-2309
sub GetMaxPatronHoldsForRecord {
Link Here
|
| 2281 |
return $max; |
2279 |
return $max; |
| 2282 |
} |
2280 |
} |
| 2283 |
|
2281 |
|
| 2284 |
=head2 GetHoldGroupHolds |
|
|
| 2285 |
|
| 2286 |
my @reserves = GetHoldGroupHolds($hold_group_id); |
| 2287 |
|
| 2288 |
Fetch all reserve from a hold group. |
| 2289 |
|
| 2290 |
=cut |
| 2291 |
|
| 2292 |
sub GetHoldGroupHolds { |
| 2293 |
my ($hold_group_id) = @_; |
| 2294 |
|
| 2295 |
my $dbh = C4::Context->dbh; |
| 2296 |
|
| 2297 |
my $reserves = $dbh->selectall_arrayref(q{ |
| 2298 |
SELECT * FROM reserves |
| 2299 |
WHERE hold_group_id = ? |
| 2300 |
}, { Slice => {} }, $hold_group_id); |
| 2301 |
|
| 2302 |
return () unless defined $reserves; |
| 2303 |
|
| 2304 |
return @$reserves; |
| 2305 |
} |
| 2306 |
|
| 2307 |
=head1 AUTHOR |
2282 |
=head1 AUTHOR |
| 2308 |
|
2283 |
|
| 2309 |
Koha Development Team <http://koha-community.org/> |
2284 |
Koha Development Team <http://koha-community.org/> |
| 2310 |
- |
|
|