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