1582 |
{ |
{ |
1583 |
my $default = $fields{$_}; |
my $default = $fields{$_}; |
1584 |
my $found = 0; |
my $found = 0; |
1585 |
|
my $nopush = 0; |
1586 |
# Check whether field value is a known enumeration value. |
# Check whether field value is a known enumeration value. |
1587 |
foreach(@$values) |
foreach(@$values) |
1588 |
{ |
{ |
1589 |
next if ($_ ne $default); |
$found = 1 if $_ eq $default; |
1590 |
$found = 1; |
$nopush = 1 if $_ eq 'unknown'; |
|
last; |
|
1591 |
} |
} |
1592 |
unless ($found) |
unless ($found) |
1593 |
{ |
{ |
1594 |
push(@$values, 'unknown'); |
push(@$values, 'unknown') unless $nopush; |
1595 |
$default = 'unknown'; |
$default = 'unknown'; |
1596 |
} |
} |
1597 |
print popup_or_scrolling_menu($_, $values, $default), |
print popup_or_scrolling_menu($_, $values, $default), |