/[gnatsweb]/gnatsweb/gnatsweb.pl
ViewVC logotype

Diff of /gnatsweb/gnatsweb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.124 by yngves, Tue Apr 29 22:03:54 2003 UTC revision 1.124.2.1 by yngves, Tue May 6 20:46:25 2003 UTC
# Line 1581  sub edit Line 1581  sub edit
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      }      }

Legend:
Removed from v.1.124  
changed lines
  Added in v.1.124.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26