sub ModOrder {
my $orderinfo = shift;
die "Ordernumber is required" if $orderinfo->{'ordernumber'} eq '' ;
die "Ordernumber is required" if $orderinfo->{'ordernumber'} eq '';
die "Biblionumber is required" if $orderinfo->{'biblionumber'} eq '';
my $dbh = C4::Context->dbh;
my @params;
-