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 90-95 my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem( Link Here
90
    $bibnum
90
    $bibnum
91
);
91
);
92
92
93
my $biblio_with_no_item = $builder->build({
94
    source => 'Biblio'
95
});
96
93
97
94
# Modify item; setting barcode.
98
# Modify item; setting barcode.
95
my $testbarcode = '97531';
99
my $testbarcode = '97531';
Lines 511-516 $borrower->{dateofbirth} = DateTime->now->add( years => -30 ); Link Here
511
Koha::Patrons->find( $borrowernumber )->set({ dateofbirth => $borrower->{dateofbirth} })->store;
515
Koha::Patrons->find( $borrowernumber )->set({ dateofbirth => $borrower->{dateofbirth} })->store;
512
516
513
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber)->{status} , 'OK', "Reserving a 'PEGI 16' Biblio by a 30 year old borrower succeeds");
517
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber)->{status} , 'OK', "Reserving a 'PEGI 16' Biblio by a 30 year old borrower succeeds");
518
519
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblio_with_no_item->{biblionumber})->{status} , '', "Biblio with no item. Status is empty");
514
       ####
520
       ####
515
####### EO Bug 13113 <<<
521
####### EO Bug 13113 <<<
516
       ####
522
       ####
517
- 

Return to bug 21738