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

Diff of /FigWebServices/homologs_in_clusters.cgi

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

revision 1.8, Sun Jul 3 03:07:40 2005 UTC revision 1.11, Fri Jul 28 02:07:28 2006 UTC
# Line 1  Line 1 
1    #
2    # Copyright (c) 2003-2006 University of Chicago and Fellowship
3    # for Interpretations of Genomes. All Rights Reserved.
4    #
5    # This file is part of the SEED Toolkit.
6    #
7    # The SEED Toolkit is free software. You can redistribute
8    # it and/or modify it under the terms of the SEED Toolkit
9    # Public License.
10    #
11    # You should have received a copy of the SEED Toolkit Public License
12    # along with this program; if not write to the University of Chicago
13    # at info@ci.uchicago.edu or the Fellowship for Interpretation of
14    # Genomes at veronika@thefig.info or download a copy from
15    # http://www.theseed.org/LICENSE.TXT.
16    #
17    
18  #### start #####  #### start #####
19  use InterfaceRoutines;  use InterfaceRoutines;
20    
# Line 89  Line 106 
106      print "Content-Type: text/html\n";      print "Content-Type: text/html\n";
107      print "\n";      print "\n";
108      my $templ = "$FIG_Config::fig/CGI/Html/Homologs_tmpl.html";      my $templ = "$FIG_Config::fig/CGI/Html/Homologs_tmpl.html";
109      print PageBuilder::Build("<$templ", $h,"Html");      print PageBuilder::Build("<<$templ", $h,"Html");
110  }  }
111  else  else
112  {  {
# Line 167  Line 184 
184          my $loc = $fig_or_sprout->feature_location($peg);          my $loc = $fig_or_sprout->feature_location($peg);
185          if ($loc)          if ($loc)
186          {          {
187              my($contig,$beg,$end) = &FIG::boundaries_of($loc);          my($contig,$beg,$end) = $fig_or_sprout->boundaries_of($loc);
188              if ($contig && $beg && $end)              if ($contig && $beg && $end)
189              {              {
190                  $mid = int(($beg + $end) / 2);                  $mid = int(($beg + $end) / 2);

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.11

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3