[Bio] / FigWebServices / diffsF.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/diffsF.cgi

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

revision 1.2, Fri Oct 6 07:14:45 2006 UTC revision 1.3, Wed Oct 18 02:43:53 2006 UTC
# Line 144  Line 144 
144      $org1T = &load_tbl1($org1);      $org1T = &load_tbl1($org1);
145      $org2T = &load_tbl1($org2);      $org2T = &load_tbl1($org2);
146    
147        my @both;
148        my @just1;
149      foreach $key (sort { by_locus($org1T->{$a},$org1T->{$b}) } keys %$org1T)      foreach $key (sort { by_locus($org1T->{$a},$org1T->{$b}) } keys %$org1T)
150      {      {
151          $type1  = $org1T->{$key}->[TYPE];          $type1  = $org1T->{$key}->[TYPE];
# Line 166  Line 168 
168                  else {                  else {
169                      $changed = qq(shortened);                      $changed = qq(shortened);
170                  }                  }
171                  push(@$html,$cgi->h2("$changed: $link1 ($len1 bp) => $link2 ($len2 bp)"));  
172                    push @both, [ $changed, $link1, $len1, $link2, $len2 ];
173              }              }
174          }          }
175          else          else
176          {          {
177              $fid1 = $org1T->{$key}->[FID];              $fid1 = $org1T->{$key}->[FID];
178              $link1 = &link($org1,$fid1);              $link1 = &link($org1,$fid1);
179              push(@$html,$cgi->h2("just1: $link1 ($org1T->{$key}->[LEN] bp)"));              push @just2, [ $link1, $org1T->{$key}->[LEN] ];
180          }          }
181      }      }
182    
183        my @just2;
184      foreach $key (sort { by_locus($org2T->{$a},$org2T->{$b}) } keys %$org2T)      foreach $key (sort { by_locus($org2T->{$a},$org2T->{$b}) } keys %$org2T)
185      {      {
186          if (! $org1T->{$key})          if (! $org1T->{$key})
# Line 185  Line 189 
189              $locus2 = $org2T->{$key}->[LOCUS];              $locus2 = $org2T->{$key}->[LOCUS];
190              $fid2 = $org2T->{$key}->[FID];              $fid2 = $org2T->{$key}->[FID];
191              $link2 = &link($org2,$fid2);              $link2 = &link($org2,$fid2);
192              push(@$html,$cgi->h2("just2: $link2 ($org2T->{$key}->[LEN] bp)"));              push @just2, [ $link2, $org2T->{$key}->[LEN] ];
193            }
194        }
195    
196        push @$html, map { $cgi->h2("$_->[0]:, $_->[1] ($_->[2] bp) => $_->[3] ($_->[4] bp)")
197          }          }
198                     sort { abs($b->[4] - $b->[2]) <=> abs($a->[4] - $a->[2])
199                     } @both;
200    
201        push @$html, map { $cgi->h2("just2: $_->[0] ($_->[1] bp)")
202                     }
203                     sort { $b->[1] <=> $a->[1]
204                     } @just2;
205    
206        push @$html, map { $cgi->h2("just1: $_->[0] ($_->[1] bp)")
207      }      }
208                     sort { $b->[1] <=> $a->[1]
209                     } @just1;
210  }  }
211    
212  sub load_tbl1  sub load_tbl1

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3