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 |
- |
|
|