[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.7, Thu Jun 29 00:18:40 2006 UTC revision 1.9, Tue Sep 5 17:00:00 2006 UTC
# Line 487  Line 487 
487  #               print STDERR &Dumper($feat);  #               print STDERR &Dumper($feat);
488                  foreach $fid (@$feat)                  foreach $fid (@$feat)
489                  {                  {
490                      ($contig1,$beg1,$end1) = &FIG::boundaries_of($fig->feature_location($fid));                      ($contig1,$beg1,$end1) = $fig->boundaries_of($fig->feature_location($fid));
491  #                   print STDERR "contig1=$contig1 beg1=$beg1 end1=$end1\n";  #                   print STDERR "contig1=$contig1 beg1=$beg1 end1=$end1\n";
492  #                   print STDERR &Dumper([$fid,$fig->feature_location($fid),$fig->boundaries_of($fig->feature_location($fid))]);  #                   print STDERR &Dumper([$fid,$fig->feature_location($fid),$fig->boundaries_of($fig->feature_location($fid))]);
493                      $beg1 = &in_bounds($min,$max,$beg1);                      $beg1 = &in_bounds($min,$max,$beg1);
# 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.7  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3