View | Details | Raw Unified | Return to bug 5680
Collapse All | Expand All

(-)a/C4/Acquisition.pm (-1 / +3 lines)
Lines 1219-1224 sub DelOrder { Link Here
1219
    my $sth = $dbh->prepare($query);
1219
    my $sth = $dbh->prepare($query);
1220
    $sth->execute( $bibnum, $ordernumber );
1220
    $sth->execute( $bibnum, $ordernumber );
1221
    $sth->finish;
1221
    $sth->finish;
1222
    my @itemnumbers = GetItemnumbersFromOrder( $ordernumber );
1223
    C4::Items::DelItem( $dbh, $bibnum, $_ ) for @itemnumbers;
1224
    DelBiblio(($bibnum)) if C4::Items::GetItemsCount( $bibnum ) == 0;
1222
}
1225
}
1223
1226
1224
=head2 FUNCTIONS ABOUT PARCELS
1227
=head2 FUNCTIONS ABOUT PARCELS
1225
- 

Return to bug 5680