[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.163, Mon Oct 24 21:48:48 2005 UTC revision 1.164, Tue Oct 25 14:28:48 2005 UTC
# Line 839  Line 839 
839      }      }
840    
841      my $baseurl=$FIG_Config::cgi_base;      my $baseurl=$FIG_Config::cgi_base;
     $baseurl = "./";            # relative url fix  
842    
843      push @$html, "<a href=\"javascript:toggleLayer('proteinfamilies');\" title=\"Show Protein Families\">Show/Hide Protein Families</a><br>";      push @$html, "<a href=\"javascript:toggleLayer('proteinfamilies');\" title=\"Show Protein Families\">Show/Hide Protein Families</a><br>";
844      foreach my $fam (@families)      foreach my $fam (@families)
845      {      {
846       my $link="<a href='$baseurl/proteinfamilies.cgi?user=$user&family=$fam'>$fam</a>";       my $link="<a href='proteinfamilies.cgi?user=$user&family=$fam'>$fam</a>";
847       push @$tab, [$link, &family_function($fig_or_sprout, $fam), &sz_family($fig_or_sprout, $fam)];       push @$tab, [$link, &family_function($fig_or_sprout, $fam), &sz_family($fig_or_sprout, $fam)];
848      }      }
849      my $col_hdrs=["Family ID<br><small>Link Investigates Family</small>", "Family Function", "Family Size"];      my $col_hdrs=["Family ID<br><small>Link Investigates Family</small>", "Family Function", "Family Size"];
850      push @$html, $cgi->br, $cgi->div({id=>"proteinfamilies"},      push @$html, $cgi->br, $cgi->div({id=>"proteinfamilies"},
851          "<a href='$baseurl/proteinfamilies.cgi?user=$user&prot=$peg'>Explore Protein Families for $peg</a><br>\n",          "<a href='proteinfamilies.cgi?user=$user&prot=$peg&equivalence=1'>Explore Protein Families for $peg</a><br>\n",
852          "\n<a href='$baseurl/Html/ProteinFamilies.html' class='help' target='help'>Help on Protein Families</a>\n",          "\n<a href='Html/ProteinFamilies.html' class='help' target='help'>Help on Protein Families</a>\n",
853          &HTML::make_table($col_hdrs, $tab, "Protein Families")          &HTML::make_table($col_hdrs, $tab, "Protein Families")
854      );      );
855  }  }

Legend:
Removed from v.1.163  
changed lines
  Added in v.1.164

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3