[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.242, Sun Mar 13 00:55:21 2005 UTC revision 1.243, Mon Mar 14 02:04:44 2005 UTC
# Line 4108  Line 4108 
4108          }          }
4109          else          else
4110          {          {
4111              my @relevant;              my @relevant = ();
4112              $max_expand--;              $max_expand--;
4113    
4114              my @maps_to = $self->mapped_prot_ids( $id2 );              my @maps_to = $self->mapped_prot_ids( $id2 );
# Line 4139  Line 4139 
4139              {              {
4140                  my ( $x_id, $x_ln ) = @$x;                  my ( $x_id, $x_ln ) = @$x;
4141                  defined( $x_ln ) || confess "x_ln id2='$id2' x_id='$x_id'";                  defined( $x_ln ) || confess "x_ln id2='$id2' x_id='$x_id'";
                 defined( $maps_to[0]->[1] ) || confess "maps_to";  
4142                  next if ( ! $show_env && ( $x_id =~ /^fig\|9999999/ ) );                  next if ( ! $show_env && ( $x_id =~ /^fig\|9999999/ ) );
4143                  next if ( $id1 eq $x_id ) || $self->is_deleted_fid( $x_id );                  next if ( $id1 eq $x_id ) || $self->is_deleted_fid( $x_id );
4144    
4145                    defined( $maps_to[0]->[1] ) || confess "maps_to";
4146                  my $delta2  = $maps_to[0]->[1] - $x_ln;   # Coordinate shift                  my $delta2  = $maps_to[0]->[1] - $x_ln;   # Coordinate shift
4147                  my $sim1    = [ @$sim ];                  # Make a copy                  my $sim1    = [ @$sim ];                  # Make a copy
4148                  $sim1->[1]  = $x_id;                  $sim1->[1]  = $x_id;
# Line 4150  Line 4150 
4150                  $sim1->[9] -= $delta2;                  $sim1->[9] -= $delta2;
4151                  bless( $sim1, "Sim" );                  bless( $sim1, "Sim" );
4152                  push( @sims, $sim1 );                  push( @sims, $sim1 );
4153                  last if ( @sims >= $maxN );                  return @sims if ( @sims >= $maxN );
4154              }              }
4155          }          }
4156      }      }

Legend:
Removed from v.1.242  
changed lines
  Added in v.1.243

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3