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

(-)a/C4/Circulation.pm (-12 / +12 lines)
Lines 1751-1757 sub AddReturn { Link Here
1751
    my $stat_type = 'return';
1751
    my $stat_type = 'return';
1752
1752
1753
    # get information on item
1753
    # get information on item
1754
    my $itemnumber = GetItemnumberFromBarcode( $barcode );
1754
    my $item       = GetItem( undef, $barcode )
1755
        or die "GetItem( undef, $barcode ) failed";
1756
    my $itemnumber = $item->{ itemnumber };
1757
    my $itemtype   = $item->{ itype };
1758
1755
    unless ($itemnumber) {
1759
    unless ($itemnumber) {
1756
        return (0, { BadBarcode => $barcode }); # no barcode means no item or borrower.  bail out.
1760
        return (0, { BadBarcode => $barcode }); # no barcode means no item or borrower.  bail out.
1757
    }
1761
    }
Lines 1772-1779 sub AddReturn { Link Here
1772
        }
1776
        }
1773
    }
1777
    }
1774
1778
1775
    my $item = GetItem($itemnumber) or die "GetItem($itemnumber) failed";
1776
1777
    if ( $item->{'location'} eq 'PROC' ) {
1779
    if ( $item->{'location'} eq 'PROC' ) {
1778
        if ( C4::Context->preference("InProcessingToShelvingCart") ) {
1780
        if ( C4::Context->preference("InProcessingToShelvingCart") ) {
1779
            $item->{'location'} = 'CART';
1781
            $item->{'location'} = 'CART';
Lines 1992-2006 sub AddReturn { Link Here
1992
    }
1994
    }
1993
1995
1994
    # Record the fact that this book was returned.
1996
    # Record the fact that this book was returned.
1995
    # FIXME itemtype should record item level type, not bibliolevel type
1996
    UpdateStats({
1997
    UpdateStats({
1997
                branch => $branch,
1998
        branch         => $branch,
1998
                type => $stat_type,
1999
        type           => $stat_type,
1999
                itemnumber => $item->{'itemnumber'},
2000
        itemnumber     => $itemnumber,
2000
                itemtype => $biblio->{'itemtype'},
2001
        itemtype       => $itemtype,
2001
                borrowernumber => $borrowernumber,
2002
        borrowernumber => $borrowernumber,
2002
                ccode => $item->{'ccode'}}
2003
        ccode          => $item->{ ccode }
2003
    );
2004
    });
2004
2005
2005
    # Send a check-in slip. # NOTE: borrower may be undef.  probably shouldn't try to send messages then.
2006
    # Send a check-in slip. # NOTE: borrower may be undef.  probably shouldn't try to send messages then.
2006
    my $circulation_alert = 'C4::ItemCirculationAlertPreference';
2007
    my $circulation_alert = 'C4::ItemCirculationAlertPreference';
2007
- 

Return to bug 14598