Lines 36-41
use DateTime;
Link Here
|
36 |
use C4::Auth; |
36 |
use C4::Auth; |
37 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
37 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
38 |
|
38 |
|
|
|
39 |
use Koha::Holds; |
40 |
|
39 |
=head1 NAME |
41 |
=head1 NAME |
40 |
|
42 |
|
41 |
C4::ILS-DI::Services - ILS-DI Services |
43 |
C4::ILS-DI::Services - ILS-DI Services |
Lines 209-215
sub GetRecords {
Link Here
|
209 |
|
211 |
|
210 |
# Get most of the needed data |
212 |
# Get most of the needed data |
211 |
my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
213 |
my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
212 |
my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber }); |
214 |
my $reserves = Koha::Holds->search({ biblionumber => $biblionumber })->unblessed; |
213 |
my $issues = GetBiblioIssues($biblionumber); |
215 |
my $issues = GetBiblioIssues($biblionumber); |
214 |
my $items = GetItemsByBiblioitemnumber($biblioitemnumber); |
216 |
my $items = GetItemsByBiblioitemnumber($biblioitemnumber); |
215 |
|
217 |
|
Lines 224-229
sub GetRecords {
Link Here
|
224 |
$item->{'holdingbranchname'} = GetBranchName( $item->{'holdingbranch'} ); |
226 |
$item->{'holdingbranchname'} = GetBranchName( $item->{'holdingbranch'} ); |
225 |
} |
227 |
} |
226 |
|
228 |
|
|
|
229 |
foreach my $reserve (@$reserves) { |
230 |
# For backward compatibility |
231 |
$reserve->{rtimestamp} = $reserve->{timestamp}; |
232 |
} |
233 |
|
227 |
# Hashref building... |
234 |
# Hashref building... |
228 |
$biblioitem->{'items'}->{'item'} = $items; |
235 |
$biblioitem->{'items'}->{'item'} = $items; |
229 |
$biblioitem->{'reserves'}->{'reserve'} = $reserves; |
236 |
$biblioitem->{'reserves'}->{'reserve'} = $reserves; |
230 |
- |
|
|