[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.1, Thu Oct 5 00:28:58 2006 UTC revision 1.2, Fri Oct 6 07:14:45 2006 UTC
# Line 1  Line 1 
1    # -*- perl -*-
2    #
3    # Copyright (c) 2003-2006 University of Chicago and Fellowship
4    # for Interpretations of Genomes. All Rights Reserved.
5    #
6    # This file is part of the SEED Toolkit.
7    #
8    # The SEED Toolkit is free software. You can redistribute
9    # it and/or modify it under the terms of the SEED Toolkit
10    # Public License.
11    #
12    # You should have received a copy of the SEED Toolkit Public License
13    # along with this program; if not write to the University of Chicago
14    # at info@ci.uchicago.edu or the Fellowship for Interpretation of
15    # Genomes at veronika@thefig.info or download a copy from
16    # http://www.theseed.org/LICENSE.TXT.
17    #
18    
19  use GenoGraphics;  use GenoGraphics;
20    
21  use FIG;  use FIG;
# Line 141  Line 159 
159                  $fid2 = $org2T->{$key}->[FID];                  $fid2 = $org2T->{$key}->[FID];
160                  $link1 = &link($org1,$fid1);                  $link1 = &link($org1,$fid1);
161                  $link2 = &link($org2,$fid2);                  $link2 = &link($org2,$fid2);
162                  push(@$html,$cgi->h2("changed: $link1 => $link2"));  
163                    if (($len1 = $org1T->{$key}->[LEN]) < ($len2 = $org2T->{$key}->[LEN])) {
164                        $changed = qq(lengthened);
165                    }
166                    else {
167                        $changed = qq(shortened);
168                    }
169                    push(@$html,$cgi->h2("$changed: $link1 ($len1 bp) => $link2 ($len2 bp)"));
170              }              }
171          }          }
172          else          else
173          {          {
174              $fid1 = $org1T->{$key}->[FID];              $fid1 = $org1T->{$key}->[FID];
175              $link1 = &link($org1,$fid1);              $link1 = &link($org1,$fid1);
176              push(@$html,$cgi->h2("just1: $link1"));              push(@$html,$cgi->h2("just1: $link1 ($org1T->{$key}->[LEN] bp)"));
177          }          }
178      }      }
179    
# Line 160  Line 185 
185              $locus2 = $org2T->{$key}->[LOCUS];              $locus2 = $org2T->{$key}->[LOCUS];
186              $fid2 = $org2T->{$key}->[FID];              $fid2 = $org2T->{$key}->[FID];
187              $link2 = &link($org2,$fid2);              $link2 = &link($org2,$fid2);
188              push(@$html,$cgi->h2("just2: $link2"));              push(@$html,$cgi->h2("just2: $link2 ($org2T->{$key}->[LEN] bp)"));
189          }          }
190      }      }
191  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3