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

Diff of /FigKernelPackages/ChromosomalClusters.pm

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

revision 1.8, Fri Jul 14 22:24:44 2006 UTC revision 1.9, Tue Sep 5 17:00:00 2006 UTC
# Line 1175  Line 1175 
1175      if ($peg !~ /^fig\|\d+\.\d+\.peg\.\d+$/) { return "" }      if ($peg !~ /^fig\|\d+\.\d+\.peg\.\d+$/) { return "" }
1176    
1177      my @codes = grep { $_->[1] =~ /^evidence_code/i } $fig->get_attributes($peg);      my @codes = grep { $_->[1] =~ /^evidence_code/i } $fig->get_attributes($peg);
1178      return (@codes > 0) ? map { $_->[2] } @codes : ();      my @pretty_codes = ();
1179        foreach my $code (@codes) {
1180            my $pretty_code = $code->[2];
1181            if ($pretty_code =~ /;/) {
1182                my ($cd, $ss) = split(";", $code->[2]);
1183                $ss =~ s/_/ /g;
1184                $pretty_code = $cd . " in " . $ss;
1185  }  }
1186            push(@pretty_codes, $pretty_code);
1187        }
1188        return @pretty_codes;
1189    }
1190    
1191    
1192    
1193  #####################################################################  #####################################################################

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3