[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.56, Wed Jan 12 21:22:08 2005 UTC revision 1.57, Wed Jan 12 21:50:10 2005 UTC
# Line 26  Line 26 
26  use CGI;  use CGI;
27  my $cgi = new CGI;  my $cgi = new CGI;
28    
29    use Carp 'cluck';
30    
31  if (0)  if (0)
32  {  {
33      my $VAR1;      my $VAR1;
# Line 1089  Line 1091 
1091  sub print_context {  sub print_context {
1092      my($fig_or_sprout,$cgi,$html,$peg,$feat,$beg,$end) = @_;      my($fig_or_sprout,$cgi,$html,$peg,$feat,$beg,$end) = @_;
1093    
1094      warn "print_context ", Dumper(\@_);      warn "print_context ", Dumper(@_[1..$#_]);
1095        if ($beg eq $end) { cluck "Have zero len"; }
1096      my($contig1,$beg1,$end1,$strand,$max_so_far,$gap,$comment,$fc,$aliases);      my($contig1,$beg1,$end1,$strand,$max_so_far,$gap,$comment,$fc,$aliases);
1097      my($why_related,$fid1,$sz,$color,$map,$gg,$n,$link,$in_neighborhood);      my($why_related,$fid1,$sz,$color,$map,$gg,$n,$link,$in_neighborhood);
1098    
# Line 1788  Line 1791 
1791      else      else
1792      {      {
1793          warn Dumper($html);          warn Dumper($html);
1794          if ($cgi->param('FSPROUT'))          if ($cgi->param('SPROUT'))
1795          {          {
1796                print "Content-Type: text/html\n";
1797                print "\n";
1798                my $templ = "$FIG_Config::fig/CGI/Html/Protein_tmpl.html";
1799                my $page = new PageBuilder($templ, $html);
1800                print $page->Build($templ, $html);
1801                $page->Finish();
1802  #           &HTML::BuildPage($html);  #           &HTML::BuildPage($html);
1803          }          }
1804          else          else

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3