From 78a908bf9b51e6bfd6c0306300f3489bc7a7809f Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Mon, 11 Apr 2016 16:15:08 +0200 Subject: [PATCH] Bug 16246: Return all reserves columns in ILS-DI GetRecords response The list of reserves fields returned in ILS-DI GetRecords response is arbitrary. Instead we should return all the fields available in reserves table --- C4/ILSDI/Services.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm index 7c5e5f3..091f2ac 100644 --- a/C4/ILSDI/Services.pm +++ b/C4/ILSDI/Services.pm @@ -36,6 +36,7 @@ use C4::Auth; use C4::Members::Attributes qw(GetBorrowerAttributes); use Koha::Libraries; +use Koha::Holds; =head1 NAME @@ -207,7 +208,7 @@ sub GetRecords { # Get most of the needed data my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; - my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber }); + my $reserves = Koha::Holds->search({ biblionumber => $biblionumber })->unblessed; my $issues = GetBiblioIssues($biblionumber); my $items = GetItemsByBiblioitemnumber($biblioitemnumber); @@ -224,6 +225,11 @@ sub GetRecords { $item->{'holdingbranchname'} = $holding_library ? $holding_library->branchname : ''; } + foreach my $reserve (@$reserves) { + # For backward compatibility + $reserve->{rtimestamp} = $reserve->{timestamp}; + } + # Hashref building... $biblioitem->{'items'}->{'item'} = $items; $biblioitem->{'reserves'}->{'reserve'} = $reserves; -- 2.1.4