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