print $q->start_Select({
  -id       => 'idprd_order_allowed',
  -name     => 'prd_order_allowed',
  -override => 1,
  -onChange => "changeInCore=true",
  -default  => $prd_order_allowed });
foreach my $option (@low_values_prd_order_allowed){
print $q->option({
  -value=>"$option",
  -title=>"$titles_prd_order_allowed{$option}"}, "$meanings_prd_order_allowed{$option}");
    }
print $q->end_Select();