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