if ( ($action eq "UPDATE") && ($orderid =~ /\d+/)) {
my @data=();
  my @fields = qw!unitprice quantity discount !; 
  for my $f (@fields){
    push @data,$q->param($f) || '' ;
  }
  push @data,$orderid;

  my $sql = qq! UPDATE
                   "Order_Details"
                SET
                   "UnitPrice" = ?,
                   "Quantity"  = ?,
                   "Discount"  = ?
                WHERE "OrderID" = ? !;

  my $count = $dbh->do( $sql,undef,$orderid );
  $msg = "$count Record updated - $sql, $orderid";