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