[Bio] / FigKernelPackages / Subsystem.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.45, Mon Feb 14 18:22:14 2005 UTC revision 1.46, Thu Feb 24 22:02:39 2005 UTC
# Line 633  Line 633 
633          chomp;          chomp;
634    
635          my($genome, $variant_code, @row) = split(/\t/, $_, $nr + 2);          my($genome, $variant_code, @row) = split(/\t/, $_, $nr + 2);
636            $variant_code =~ s/ //g;
637          next if $seen{$genome};          next if $seen{$genome};
638          $seen{$genome}++;          $seen{$genome}++;
639    
# Line 966  Line 966 
966  sub get_variant_code  sub get_variant_code
967  {  {
968      my($self, $gidx) = @_;      my($self, $gidx) = @_;
969      return $self->{variant_code}->[$gidx];      my $c = $self->{variant_code}->[$gidx];
970        $c =~ s/ //g;
971        return $c;
972  }  }
973    
974  sub set_variant_code  sub set_variant_code

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3