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

(-)a/C4/Circulation.pm (-12 / +15 lines)
Lines 1388-1405 sub AddIssue { Link Here
1388
            C4::Reserves::MoveReserve( $item_object->itemnumber, $borrower->{'borrowernumber'}, $cancelreserve );
1388
            C4::Reserves::MoveReserve( $item_object->itemnumber, $borrower->{'borrowernumber'}, $cancelreserve );
1389
1389
1390
            # Starting process for transfer job (checking transfert and validate it if we have one)
1390
            # Starting process for transfer job (checking transfert and validate it if we have one)
1391
            my ($datesent) = GetTransfers( $item_object->itemnumber );
1391
            if ( my $transfer = $item_object->get_transfer ) {
1392
            if ($datesent) {
1393
                # updating line of branchtranfert to finish it, and changing the to branch value, implement a comment for visibility of this case (maybe for stats ....)
1392
                # updating line of branchtranfert to finish it, and changing the to branch value, implement a comment for visibility of this case (maybe for stats ....)
1394
                my $sth = $dbh->prepare(
1393
                $transfer->set(
1395
                    "UPDATE branchtransfers 
1394
                    {
1396
                        SET datearrived = now(),
1395
                        datearrived => dt_from_string,
1397
                        tobranch = ?,
1396
                        tobranch    => C4::Context->userenv->{branch},
1398
                        comments = 'Forced branchtransfer'
1397
                        comments    => 'Forced branchtransfer'
1399
                    WHERE itemnumber= ? AND datearrived IS NULL"
1398
                    }
1400
                );
1399
                )->store;
1401
                $sth->execute( C4::Context->userenv->{'branch'},
1400
                if ( $transfer->reason eq 'Reserve' ) {
1402
                    $item_object->itemnumber );
1401
                    my $hold = $item_object->holds->search( { found => 'T' } )->next;
1402
                    if ( $hold ) { # Is this really needed?
1403
                        $hold->set( { found => undef } )->store;
1404
                        C4::Reserves::ModReserveMinusPriority($item_object->itemnumber, $hold->reserve_id);
1405
                    }
1406
                }
1403
            }
1407
            }
1404
1408
1405
            # If automatic renewal wasn't selected while issuing, set the value according to the issuing rule.
1409
            # If automatic renewal wasn't selected while issuing, set the value according to the issuing rule.
1406
- 

Return to bug 24598