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();
##</code><code>##

print $q->popup_menu(
-id       => 'idprd_order_allowed',
-name     => 'prd_order_allowed',
-override => 1,
-onChange => "changeInCore=true",
-default  => $prd_order_allowed,
-value    => [@low_values_prd_order_allowed],
-labels   => \%meanings_prd_order_allowed
);