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

Diff of /FigWebServices/protein.cgi

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

revision 1.111, Wed Jun 1 11:32:26 2005 UTC revision 1.112, Fri Jun 3 00:27:44 2005 UTC
# Line 356  Line 356 
356          my($contig,$beg,$end) = &boundaries_of($fig_or_sprout,$loc);          my($contig,$beg,$end) = &boundaries_of($fig_or_sprout,$loc);
357    
358          my $len  = abs($end-$beg) + 1;          my $len  = abs($end-$beg) + 1;
359            if ($len > $half_sz)
360            {
361                $half_sz = $len;
362            }
363            else
364            {
365          $half_sz = $half_sz * (1 + 3*int($len/$half_sz));   #...set scale of region...          $half_sz = $half_sz * (1 + 3*int($len/$half_sz));   #...set scale of region...
366            }
367  #       print STDERR "half_sz = $half_sz\n";  #       print STDERR "half_sz = $half_sz\n";
368    
369          my $min  = &max(0,&min($beg,$end) - $half_sz);          my $min  = &max(0,&min($beg,$end) - $half_sz);
# Line 1674  Line 1681 
1681    
1682      my $in_cluster = &in_cluster_with($fig_or_sprout,$cgi,$peg);      my $in_cluster = &in_cluster_with($fig_or_sprout,$cgi,$peg);
1683      my $col_hdrs;      my $col_hdrs;
1684    
1685    
1686      if ($cgi->param('SPROUT'))      if ($cgi->param('SPROUT'))
1687      {      {
1688          $col_hdrs = ["fid","starts","ends","size","","gap","pins","fc-sc","comment","","","aliases"];          $col_hdrs = ["fid","starts","ends","size","","gap","find<br>best<br>clusters","pins","fc-sc","comment","","","aliases"];
1689      }      }
1690      else      else
1691      {      {
1692          $col_hdrs = ["fid","starts","ends","size","","gap","pins","fc-sc","comment","aliases"];          $col_hdrs = ["fid","starts","ends","size","","gap","find<br>best<br>clusters","pins","fc-sc","comment","aliases"];
1693      }      }
1694    
1695      my($tab) = [];      my($tab) = [];
# Line 1690  Line 1699 
1699    
1700      my $fc_sc;      my $fc_sc;
1701      foreach $fid1 (@$feat) {      foreach $fid1 (@$feat) {
1702            my $best_clusters_link = "<a href=" . &cgi_url . "/homologs_in_clusters.cgi?prot=$fid1&user=$user><img src=\"Html/button-cl.png\" border=\"0\"></a>";
1703          if (defined($fc_sc = $in_cluster->{$fid1}))          if (defined($fc_sc = $in_cluster->{$fid1}))
1704          {          {
1705              $fc = &pin_link($cgi,$fid1);              $fc = &pin_link($cgi,$fid1);
# Line 1778  Line 1788 
1788                  $g_link = "<a href=$to_gbrowse><img src=\"Html/button-g.png\" border=\"0\"></a>";                  $g_link = "<a href=$to_gbrowse><img src=\"Html/button-g.png\" border=\"0\"></a>";
1789              }              }
1790              push(@$tab,[&HTML::fid_link($cgi,$fid1,"local"),$beg1,$end1,$sz,$strand,$gap,              push(@$tab,[&HTML::fid_link($cgi,$fid1,"local"),$beg1,$end1,$sz,$strand,$gap,
1791                            $best_clusters_link,
1792                          $fc,$fc_sc,                          $fc,$fc_sc,
1793                          $comment,                          $comment,
1794                          $s_link,                          $s_link,
# Line 1787  Line 1798 
1798          else          else
1799          {          {
1800              push(@$tab,[&HTML::fid_link($cgi,$fid1,"local"),$beg1,$end1,$sz,$strand,$gap,              push(@$tab,[&HTML::fid_link($cgi,$fid1,"local"),$beg1,$end1,$sz,$strand,$gap,
1801                            $best_clusters_link,
1802                          $fc,$fc_sc,                          $fc,$fc_sc,
1803                          $comment,                          $comment,
1804                          $aliases]);                          $aliases]);
# Line 1828  Line 1840 
1840      my $sprout = $cgi->param('SPROUT') ? 1 : "";      my $sprout = $cgi->param('SPROUT') ? 1 : "";
1841      my $cluster_url  = "chromosomal_clusters.cgi?prot=$peg&user=$user&uni=1"; # &SPROUT=$sprout";      my $cluster_url  = "chromosomal_clusters.cgi?prot=$peg&user=$user&uni=1"; # &SPROUT=$sprout";
1842    
1843      my $cluster_img = 0 ? "*" : '<img src="Html/button-fc.png" border="0">';      my $cluster_img = 0 ? "*" : '<img src="Html/button-pins-1.png" border="0">';
1844      my $cluster_link = "<a href=\"$cluster_url\">$cluster_img</a>";      my $cluster_link = "<a href=\"$cluster_url\">$cluster_img</a>";
1845      return $cluster_link;      return $cluster_link;
1846  }  }

Legend:
Removed from v.1.111  
changed lines
  Added in v.1.112

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3