sub DelOrder {
my ( $bibnum, $ordernumber, $delete_biblio, $reason ) = @_;
return if !$ordernumber;
my $error;
my $dbh = C4::Context->dbh;
my $query = "
-