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

Diff of /gnatsweb/gnatsweb.pl

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

revision 1.79 by yngves, Mon Nov 19 22:12:12 2001 UTC revision 1.80 by yngves, Mon Nov 19 22:43:32 2001 UTC
# Line 633  sub init_fieldinfo Line 633  sub init_fieldinfo
633      {      {
634        $fielddata{$field}{'flags'} |= $READONLY;        $fielddata{$field}{'flags'} |= $READONLY;
635      }      }
636        if ($fielddata{$field}{'fieldtype'} eq 'multienum')
637        {
638          my @response = client_cmd("ftypinfo $field separators");
639          $response[0] =~ /'(.*)'/;
640          $fielddata{$field}{'separators'} = $1;
641          $fielddata{$field}{'default_sep'} = substr($1, 0, 1);
642        }
643      my @values = client_cmd ("fvld $field");      my @values = client_cmd ("fvld $field");
644      $fielddata{$field}{'values'} = [@values];      $fielddata{$field}{'values'} = [@values];
645      $fielddata{$field}{'default'} = shift (@fdflt);      $fielddata{$field}{'default'} = shift (@fdflt);
# Line 3143  sub unparse_multienum Line 3150  sub unparse_multienum
3150    my @values = @{$_[0]};    my @values = @{$_[0]};
3151    my $field = $_[1];    my $field = $_[1];
3152    my $valstring;    my $valstring;
3153      
   # Get the first character from the field separators string.  
   my @response = client_cmd("ftypinfo $field separators");  
   $response[0] =~ /'(.*)'/;  
   my $separator = substr $1, 0, 1;  
     
3154    # Prepare the string of separated values.    # Prepare the string of separated values.
3155    $valstring = join($separator, @values);    $valstring = join($fielddata{$field}{'default_sep'}, @values);
3156    
3157    return $valstring;    return $valstring;
3158  }  }
# Line 3164  sub parse_multienum Line 3166  sub parse_multienum
3166    my $valstring = $_[0];    my $valstring = $_[0];
3167    my $field = $_[1];    my $field = $_[1];
3168        
   # Get the field separators string.  
   my @response = client_cmd("ftypinfo $field separators");  
   $response[0] =~ /'(.*)'/;  
   my $separators = $1;  
     
3169    # Split and return array ref.    # Split and return array ref.
3170    my @values = split /[$separators]/, $valstring;    my @values = split /[$fielddata{$field}{'separators'}]/, $valstring;
3171    return \@values;    return \@values;
3172  }  }
3173    

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

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