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 207-213
sub GetRecords {
Link Here
|
207 |
|
208 |
|
208 |
# Get most of the needed data |
209 |
# Get most of the needed data |
209 |
my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
210 |
my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
210 |
my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber }); |
211 |
my $reserves = Koha::Holds->search({ biblionumber => $biblionumber })->unblessed; |
211 |
my $issues = GetBiblioIssues($biblionumber); |
212 |
my $issues = GetBiblioIssues($biblionumber); |
212 |
my $items = GetItemsByBiblioitemnumber($biblioitemnumber); |
213 |
my $items = GetItemsByBiblioitemnumber($biblioitemnumber); |
213 |
|
214 |
|
Lines 224-229
sub GetRecords {
Link Here
|
224 |
$item->{'holdingbranchname'} = $holding_library ? $holding_library->branchname : ''; |
225 |
$item->{'holdingbranchname'} = $holding_library ? $holding_library->branchname : ''; |
225 |
} |
226 |
} |
226 |
|
227 |
|
|
|
228 |
foreach my $reserve (@$reserves) { |
229 |
# For backward compatibility |
230 |
$reserve->{rtimestamp} = $reserve->{timestamp}; |
231 |
} |
232 |
|
227 |
# Hashref building... |
233 |
# Hashref building... |
228 |
$biblioitem->{'items'}->{'item'} = $items; |
234 |
$biblioitem->{'items'}->{'item'} = $items; |
229 |
$biblioitem->{'reserves'}->{'reserve'} = $reserves; |
235 |
$biblioitem->{'reserves'}->{'reserve'} = $reserves; |
230 |
- |
|
|