1581 |
if (fieldinfo ($_, 'fieldtype') eq 'enum') |
if (fieldinfo ($_, 'fieldtype') eq 'enum') |
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'; |
1591 |
last; |
} |
1592 |
} |
unless ($found) |
1593 |
unless ($found) |
{ |
1594 |
{ |
push(@$values, 'unknown') unless $nopush; |
1595 |
push(@$values, 'unknown'); |
$default = 'unknown'; |
1596 |
$default = 'unknown'; |
} |
|
} |
|
1597 |
print popup_or_scrolling_menu($_, $values, $default), |
print popup_or_scrolling_menu($_, $values, $default), |
1598 |
"</td>\n</tr>\n"; |
"</td>\n</tr>\n"; |
1599 |
} |
} |