Lines 36-41
use C4::Auth;
Link Here
|
36 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
36 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
37 |
|
37 |
|
38 |
use Koha::Libraries; |
38 |
use Koha::Libraries; |
|
|
39 |
use Koha::Holds; |
39 |
|
40 |
|
40 |
=head1 NAME |
41 |
=head1 NAME |
41 |
|
42 |
|
Lines 217-223
sub GetRecords {
Link Here
|
217 |
|
218 |
|
218 |
# Get most of the needed data |
219 |
# Get most of the needed data |
219 |
my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
220 |
my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
220 |
my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber }); |
221 |
my $reserves = Koha::Holds->search({ biblionumber => $biblionumber })->unblessed; |
221 |
my $issues = GetBiblioIssues($biblionumber); |
222 |
my $issues = GetBiblioIssues($biblionumber); |
222 |
my $items = GetItemsByBiblioitemnumber($biblioitemnumber); |
223 |
my $items = GetItemsByBiblioitemnumber($biblioitemnumber); |
223 |
|
224 |
|
Lines 234-239
sub GetRecords {
Link Here
|
234 |
$item->{'holdingbranchname'} = $holding_library ? $holding_library->branchname : ''; |
235 |
$item->{'holdingbranchname'} = $holding_library ? $holding_library->branchname : ''; |
235 |
} |
236 |
} |
236 |
|
237 |
|
|
|
238 |
foreach my $reserve (@$reserves) { |
239 |
# For backward compatibility |
240 |
$reserve->{rtimestamp} = $reserve->{timestamp}; |
241 |
} |
242 |
|
237 |
# Hashref building... |
243 |
# Hashref building... |
238 |
$biblioitem->{'items'}->{'item'} = $items; |
244 |
$biblioitem->{'items'}->{'item'} = $items; |
239 |
$biblioitem->{'reserves'}->{'reserve'} = $reserves; |
245 |
$biblioitem->{'reserves'}->{'reserve'} = $reserves; |
240 |
- |
|
|