View | Details | Raw Unified | Return to bug 21738
Collapse All | Expand All

(-)a/C4/Reserves.pm (-1 / +1 lines)
Lines 284-290 sub CanBookBeReserved{ Link Here
284
        push (@itemnumbers, @hostitems);
284
        push (@itemnumbers, @hostitems);
285
    }
285
    }
286
286
287
    my $canReserve;
287
    my $canReserve = { status => '' };
288
    foreach my $itemnumber (@itemnumbers) {
288
    foreach my $itemnumber (@itemnumbers) {
289
        $canReserve = CanItemBeReserved( $borrowernumber, $itemnumber, $pickup_branchcode );
289
        $canReserve = CanItemBeReserved( $borrowernumber, $itemnumber, $pickup_branchcode );
290
        return { status => 'OK' } if $canReserve->{status} eq 'OK';
290
        return { status => 'OK' } if $canReserve->{status} eq 'OK';
(-)a/reserve/request.pl (-1 lines)
Lines 222-228 foreach my $biblionumber (@biblionumbers) { Link Here
222
    if ( $patron ) {
222
    if ( $patron ) {
223
        { # CanBookBeReserved
223
        { # CanBookBeReserved
224
            my $canReserve = CanBookBeReserved( $patron->borrowernumber, $biblionumber );
224
            my $canReserve = CanBookBeReserved( $patron->borrowernumber, $biblionumber );
225
            $canReserve->{status} //= '';
226
            if ( $canReserve->{status} eq 'OK' ) {
225
            if ( $canReserve->{status} eq 'OK' ) {
227
226
228
                #All is OK and we can continue
227
                #All is OK and we can continue
(-)a/t/db_dependent/Reserves.t (-2 / +7 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 58;
20
use Test::More tests => 59;
21
use Test::MockModule;
21
use Test::MockModule;
22
use Test::Warn;
22
use Test::Warn;
23
23
Lines 105-110 my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem( Link Here
105
    $bibnum
105
    $bibnum
106
);
106
);
107
107
108
my $biblio_with_no_item = $builder->build({
109
    source => 'Biblio'
110
});
111
108
112
109
# Modify item; setting barcode.
113
# Modify item; setting barcode.
110
my $testbarcode = '97531';
114
my $testbarcode = '97531';
Lines 533-538 $borrower->{dateofbirth} = DateTime->now->add( years => -30 ); Link Here
533
Koha::Patrons->find( $borrowernumber )->set({ dateofbirth => $borrower->{dateofbirth} })->store;
537
Koha::Patrons->find( $borrowernumber )->set({ dateofbirth => $borrower->{dateofbirth} })->store;
534
538
535
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber)->{status} , 'OK', "Reserving a 'PEGI 16' Biblio by a 30 year old borrower succeeds");
539
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber)->{status} , 'OK', "Reserving a 'PEGI 16' Biblio by a 30 year old borrower succeeds");
540
541
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblio_with_no_item->{biblionumber})->{status} , '', "Biblio with no item. Status is empty");
536
       ####
542
       ####
537
####### EO Bug 13113 <<<
543
####### EO Bug 13113 <<<
538
       ####
544
       ####
539
- 

Return to bug 21738