[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.76, Wed Dec 28 03:28:05 2005 UTC revision 1.77, Wed Dec 28 04:00:26 2005 UTC
# Line 544  Line 544 
544    
545  sub abstract_coupling_table {  sub abstract_coupling_table {
546      my($cgi,$prot,$coupling) = @_;      my($cgi,$prot,$coupling) = @_;
547        my %fc;
548    
549      my $col_hdrs = ["coupled to","Score","Type of Coupling", "Type-specific Data"];      my $col_hdrs = ["coupled to","Score","Type of Coupling", "Type-specific Data"];
550      my $tab = [];      my $tab = [];
# Line 560  Line 561 
561                            or ($a->[2] cmp $b->[2]) } @$coupling)                            or ($a->[2] cmp $b->[2]) } @$coupling)
562      {      {
563          my($peg2,$psc,$type,$extra) = @$x;          my($peg2,$psc,$type,$extra) = @$x;
564            if (($type !~ /^[ID]FC$/) || (! $fc{$peg2}))
565            {
566                if ($type =~  /^[ID]FC$/)
567                {
568                    $fc{$peg2} = 1;
569                }
570          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))]);
571      }      }
572        }
573    
574    
575      my $help = "<a href=\"Html/abstract_coupling.html\" target=\"SEED_or_SPROUT_help\">for help</a>";      my $help = "<a href=\"Html/abstract_coupling.html\" target=\"SEED_or_SPROUT_help\">for help</a>";

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3