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