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 |
- |
|
|