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