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

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

Return to bug 12555