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

Diff of /FigKernelPackages/SeedUtils.pm

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

revision 1.49, Fri Aug 27 19:24:25 2010 UTC revision 1.50, Sun Aug 29 21:10:17 2010 UTC
# Line 77  Line 77 
77  sub abbrev {  sub abbrev {
78      my($genome_name) = @_;      my($genome_name) = @_;
79      my %exclude = map { $_ => 1 }      my %exclude = map { $_ => 1 }
80                    qw( Candidatus subspecies subsp. strain str. );                    qw( candidatus subspecies subsp strain str bv pv sp );
81      my ($p1,$p2,$p3) = grep { ! $exclude{$_} } split(/\s/,$genome_name);      my ($p1,$p2,@rest) = grep { ! $exclude{lc $_} }
82                             map { $_ =~ s/\W//g; $_ }
83                             split(/\s/,$genome_name);
84        my $p3 = join("",@rest);
85    
86      my $lbl_ln = 10;      my $lbl_ln = 10;
87    

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3