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

(-)a/C4/Acquisition.pm (-15 / +6 lines)
Lines 1605-1625 sub _cancel_items_receipt { Link Here
1605
    $parent_ordernumber ||= $ordernumber;
1605
    $parent_ordernumber ||= $ordernumber;
1606
1606
1607
    my @itemnumbers = GetItemnumbersFromOrder($ordernumber);
1607
    my @itemnumbers = GetItemnumbersFromOrder($ordernumber);
1608
    if(C4::Context->preference('AcqCreateItem') eq 'receiving') {
1608
    foreach my $itemnumber (@itemnumbers) {
1609
        # Remove items that were created at receipt
1609
        if(C4::Context->preference('AcqCreateItem') eq 'receiving') {
1610
        my $query = qq{
1610
            # Remove items that were created at receipt
1611
            DELETE FROM items, aqorders_items
1611
            C4::Items::DelItem({ itemnumber => $itemnumber });
1612
            USING items, aqorders_items
1613
            WHERE items.itemnumber = ? AND aqorders_items.itemnumber = ?
1614
        };
1615
        my $dbh = C4::Context->dbh;
1616
        my $sth = $dbh->prepare($query);
1617
        foreach my $itemnumber (@itemnumbers) {
1618
            $sth->execute($itemnumber, $itemnumber);
1619
        }
1612
        }
1620
    } else {
1613
        else {
1621
        # Update items
1614
            # Update items
1622
        foreach my $itemnumber (@itemnumbers) {
1623
            ModItemOrder($itemnumber, $parent_ordernumber);
1615
            ModItemOrder($itemnumber, $parent_ordernumber);
1624
        }
1616
        }
1625
    }
1617
    }
1626
- 

Return to bug 12555