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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.252, Mon Mar 21 18:33:49 2005 UTC revision 1.253, Mon Mar 21 21:39:32 2005 UTC
# Line 4106  Line 4106 
4106      defined( $max_expand ) or $max_expand =       0;   # But none by default      defined( $max_expand ) or $max_expand =       0;   # But none by default
4107      defined( $show_env )   or $show_env   =       1;   # Show environmental by default      defined( $show_env )   or $show_env   =       1;   # Show environmental by default
4108    
4109        $max_expand = 1000000000 if ( $select =~ /^figx/ ); # figx forces unlimited expand
4110        print STDERR "select = $select; max_expand = $max_expand\n";
4111    
4112      my @sims = ();      my @sims = ();
4113      foreach $sim ( @$raw_sims )      foreach $sim ( @$raw_sims )
4114      {      {
# Line 4130  Line 4133 
4133              $max_expand--;              $max_expand--;
4134    
4135              my @maps_to = $self->mapped_prot_ids( $id2 );              my @maps_to = $self->mapped_prot_ids( $id2 );
4136              if ( $select eq "fig" )            # Only fig              if ( $select =~ /^figx?$/ )          # Only fig
4137              {              {
4138                  @relevant = grep { $_->[0] =~ /^fig/ } @maps_to;                  @relevant = grep { $_->[0] =~ /^fig/ } @maps_to;
4139              }              }
4140              elsif ( $select =~ /^fig_?pref/i ) # FIG preferred              elsif ( $select =~ /^figx?_?pref/ )  # FIG preferred
4141              {              {
4142                  @relevant = grep { $_->[0] =~ /^fig/ } @maps_to;                  @relevant = grep { $_->[0] =~ /^fig/ } @maps_to;
4143                  if ( ! @relevant )                  if ( ! @relevant )

Legend:
Removed from v.1.252  
changed lines
  Added in v.1.253

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3