[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

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

revision 1.74, Tue Dec 20 17:59:09 2005 UTC revision 1.75, Fri Dec 23 18:13:45 2005 UTC
# Line 543  Line 543 
543  }  }
544    
545  sub abstract_coupling_table {  sub abstract_coupling_table {
546      my($cgi,$coupling) = @_;      my($cgi,$prot,$coupling) = @_;
547    
548      my $col_hdrs = ["coupled to","Score","Type of Coupling", "Type-specific Data"];      my $col_hdrs = ["coupled to","Score","Type of Coupling", "Type-specific Data"];
549      my $tab = [];      my $tab = [];
# Line 552  Line 552 
552          my($peg2,$psc,$type,$extra) = @$x;          my($peg2,$psc,$type,$extra) = @$x;
553          push(@$tab,[&fid_link($cgi,$peg2,1),$psc,$type,&set_prot_links($cgi,join(", ",@$extra))]);          push(@$tab,[&fid_link($cgi,$peg2,1),$psc,$type,&set_prot_links($cgi,join(", ",@$extra))]);
554      }      }
555      return &make_table($col_hdrs,$tab,"Abstract Coupling Data");  
556        my $help = "<a href=\"Html/abstract_coupling.html\" target=\"SEED_or_SPROUT_help\">for help</a>";
557    #    my @html = &make_table($col_hdrs,$tab,"Abstract Coupling Data for $prot");
558    #    push(@html,"<hr>\n",$cgi->h3($help),"<br>");
559    #    return @html;
560    
561        return &make_table($col_hdrs,$tab,"Abstract Coupling Data for $prot [$help]");
562  }  }
563    
564  sub expand {  sub expand {

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3