@@ -, +, @@ - all items attached to the order are deleted - if there is no more items, then the biblio is deleted as well --- C4/Acquisition.pm | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -1219,6 +1219,9 @@ sub DelOrder { my $sth = $dbh->prepare($query); $sth->execute( $bibnum, $ordernumber ); $sth->finish; + my @itemnumbers = GetItemnumbersFromOrder( $ordernumber ); + C4::Items::DelItem( $dbh, $bibnum, $_ ) for @itemnumbers; + DelBiblio(($bibnum)) if C4::Items::GetItemsCount( $bibnum ) == 0; } =head2 FUNCTIONS ABOUT PARCELS --