@@ -, +, @@ ---------- --- C4/ILSDI/Services.pm | 3 +-- t/db_dependent/ILSDI_Services.t | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) --- a/C4/ILSDI/Services.pm +++ a/C4/ILSDI/Services.pm @@ -738,9 +738,8 @@ sub HoldItem { return { code => 'RecordNotFound' } if $$item{biblionumber} ne $biblio->biblionumber; # Check for item disponibility - my $canitembereserved = C4::Reserves::CanItemBeReserved( $borrowernumber, $itemnumber ); + # CanItemBeReserved codes are passed back too. my $canbookbereserved = C4::Reserves::CanBookBeReserved( $borrowernumber, $biblionumber ); - return { code => $canitembereserved } unless $canitembereserved eq 'OK'; return { code => $canbookbereserved } unless $canbookbereserved eq 'OK'; # Pickup branch management --- a/t/db_dependent/ILSDI_Services.t +++ a/t/db_dependent/ILSDI_Services.t @@ -19,7 +19,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use Test::More tests => 4; +use Test::More tests => 5; use Test::MockModule; use t::lib::Mocks; use t::lib::TestBuilder; --