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

(-)a/C4/Acquisition.pm (-15 / +6 lines)
Lines 1670-1690 sub _cancel_items_receipt { Link Here
1670
    $parent_ordernumber ||= $ordernumber;
1670
    $parent_ordernumber ||= $ordernumber;
1671
1671
1672
    my @itemnumbers = GetItemnumbersFromOrder($ordernumber);
1672
    my @itemnumbers = GetItemnumbersFromOrder($ordernumber);
1673
    if(C4::Context->preference('AcqCreateItem') eq 'receiving') {
1673
    foreach my $itemnumber (@itemnumbers) {
1674
        # Remove items that were created at receipt
1674
        if(C4::Context->preference('AcqCreateItem') eq 'receiving') {
1675
        my $query = qq{
1675
            # Remove items that were created at receipt
1676
            DELETE FROM items, aqorders_items
1676
            C4::Items::DelItem({ itemnumber => $itemnumber });
1677
            USING items, aqorders_items
1678
            WHERE items.itemnumber = ? AND aqorders_items.itemnumber = ?
1679
        };
1680
        my $dbh = C4::Context->dbh;
1681
        my $sth = $dbh->prepare($query);
1682
        foreach my $itemnumber (@itemnumbers) {
1683
            $sth->execute($itemnumber, $itemnumber);
1684
        }
1677
        }
1685
    } else {
1678
        else {
1686
        # Update items
1679
            # Update items
1687
        foreach my $itemnumber (@itemnumbers) {
1688
            ModItemOrder($itemnumber, $parent_ordernumber);
1680
            ModItemOrder($itemnumber, $parent_ordernumber);
1689
        }
1681
        }
1690
    }
1682
    }
1691
- 

Return to bug 12555