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

(-)a/C4/RotatingCollections.pm (-9 / +11 lines)
Lines 26-31 use Modern::Perl; Link Here
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Circulation;
28
use C4::Circulation;
29
use C4::Reserves qw(GetReserveStatus);
29
30
30
use DBI;
31
use DBI;
31
32
Lines 424-440 sub TransferCollection { Link Here
424
    );
425
    );
425
    $sth->execute( $colBranchcode, $colId ) or return ( 0, 4, $sth->errstr() );
426
    $sth->execute( $colBranchcode, $colId ) or return ( 0, 4, $sth->errstr() );
426
427
427
    $sth = $dbh->prepare(
428
    $sth = $dbh->prepare(q{
428
        "SELECT barcode FROM items, collections_tracking
429
        SELECT items.itemnumber, items.barcode FROM collections_tracking
429
                        WHERE items.itemnumber = collections_tracking.itemnumber
430
        LEFT JOIN items ON collections_tracking.itemnumber = items.itemnumber
430
                        AND collections_tracking.colId = ?"
431
        LEFT JOIN issues ON items.itemnumber = issues.itemnumber
431
    );
432
        WHERE issues.borrowernumber IS NULL 
433
          AND collections_tracking.colId = ?
434
    });
432
    $sth->execute($colId) or return ( 0, 4, $sth->errstr );
435
    $sth->execute($colId) or return ( 0, 4, $sth->errstr );
433
    my @results;
436
    my @results;
434
    while ( my $item = $sth->fetchrow_hashref ) {
437
    while ( my $item = $sth->fetchrow_hashref ) {
435
        my ( $dotransfer, $messages, $iteminformation ) =
438
        transferbook( $colBranchcode, $item->{barcode},
436
          transferbook( $colBranchcode, $item->{'barcode'},
439
            my $ignore_reserves = 1 )
437
            my $ignore_reserves = 1 );
440
          unless ( GetReserveStatus( $item->{itemnumber} ) eq "Waiting" );
438
    }
441
    }
439
442
440
    return 1;
443
    return 1;
441
- 

Return to bug 8836