[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.73, Thu Dec 15 22:03:26 2005 UTC revision 1.74, Tue Dec 20 17:59:09 2005 UTC
# Line 542  Line 542 
542      return join("",@tab);      return join("",@tab);
543  }  }
544    
545    sub abstract_coupling_table {
546        my($cgi,$coupling) = @_;
547    
548        my $col_hdrs = ["coupled to","Score","Type of Coupling", "Type-specific Data"];
549        my $tab = [];
550        foreach my $x (@$coupling)
551        {
552            my($peg2,$psc,$type,$extra) = @$x;
553            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    }
557    
558  sub expand {  sub expand {
559      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
560      my( $x, $tag ) = @_;      my( $x, $tag ) = @_;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3