/[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.125 by yngves, Tue May 6 20:35:03 2003 UTC
# Line 1582  sub edit Line 1582  sub edit
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),

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

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