[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.139, Fri Jul 22 15:31:50 2005 UTC revision 1.140, Fri Jul 22 21:50:44 2005 UTC
# Line 515  Line 515 
515  sub print_services {  sub print_services {
516      my($fig_or_sprout,$cgi,$html,$peg,$has_translation,$fc_data) = @_;      my($fig_or_sprout,$cgi,$html,$peg,$has_translation,$fc_data) = @_;
517    
518      my $baseurl=$cgi->url(-base => 1);      my $baseurl=$FIG_Config::cgi_base;
519      my $link1 = $cgi->self_url() . "&request=view_annotations";      my $link1 = $cgi->self_url() . "&request=view_annotations";
520      my $link2 = $cgi->self_url() . "&request=view_all_annotations";      my $link2 = $cgi->self_url() . "&request=view_all_annotations";
521      push(@$html, "<a href='$baseurl/FIG/Html/seedtips.html#gene_names' class='help' target='help'>Help on Annotations</a>\n");      push(@$html, "<a href='$baseurl/Html/seedtips.html#gene_names' class='help' target='help'>Help on Annotations</a><br>\n");
522      push(@$html,"<a href=$link1>To View Annotations</a> / <a href=$link2>To View All Related Annotations</a>\n");      push(@$html,"<a href=$link1>To View Annotations</a> / <a href=$link2>To View All Related Annotations</a>\n");
523    
524      if ((! $cgi->param('SPROUT')) && &peg_in_gendb($fig_or_sprout,$cgi,$peg))      if ((! $cgi->param('SPROUT')) && &peg_in_gendb($fig_or_sprout,$cgi,$peg))
# Line 615  Line 615 
615    
616  sub print_kv_pairs {  sub print_kv_pairs {
617      my($is_sprout, $fig_or_sprout,$cgi,$html,$peg) = @_;      my($is_sprout, $fig_or_sprout,$cgi,$html,$peg) = @_;
618      my $baseurl=$cgi->url(-base => 1);      my $baseurl=$FIG_Config::cgi_base;
619    
620      # we don't want to do this for SPROUT      # we don't want to do this for SPROUT
621      if ($is_sprout)      if ($is_sprout)
# Line 746  Line 746 
746      else {      else {
747          # otherwise we set the javascript section to hide this.          # otherwise we set the javascript section to hide this.
748          push @$html, "<a href=\"javascript:toggleLayer('attributes');\" title=\"Show Attributes\">Show/Hide Attributes</a>",          push @$html, "<a href=\"javascript:toggleLayer('attributes');\" title=\"Show Attributes\">Show/Hide Attributes</a>",
749                       "\n<div id='attributes'>\n<a href='$baseurl/FIG/Html/Attributes.html' class='help' target='help'>Help on Attributes</a>\n",                       "\n<div id='attributes'>\n<a href='$baseurl/Html/Attributes.html' class='help' target='help'>Help on Attributes</a>\n",
750                       &HTML::make_table($col_hdrs, $tab,"Attributes"), "</div>";                       &HTML::make_table($col_hdrs, $tab,"Attributes"), "</div>";
751      }      }
752      #  Add end of form -- GJO      #  Add end of form -- GJO
# Line 802  Line 802 
802       return;       return;
803      }      }
804    
805      my $baseurl=$cgi->url(-base => 1);      my $baseurl=$FIG_Config::cgi_base;
806      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>";
807      foreach my $fam (@families)      foreach my $fam (@families)
808      {      {
809       my $link="<a href='$baseurl/FIG/proteinfamilies.cgi?user=$user&family=$fam'>$fam</a>";       my $link="<a href='$baseurl/proteinfamilies.cgi?user=$user&family=$fam'>$fam</a>";
810       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)];
811      }      }
812      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"];
813      push @$html, $cgi->br, $cgi->div({id=>"proteinfamilies"},      push @$html, $cgi->br, $cgi->div({id=>"proteinfamilies"},
814          "<a href='$baseurl/FIG/proteinfamilies.cgi?user=$user&prot=$peg'>Explore Protein Families for $peg</a><br>\n",          "<a href='$baseurl/proteinfamilies.cgi?user=$user&prot=$peg'>Explore Protein Families for $peg</a><br>\n",
815          "\n<a href='$baseurl/FIG/Html/ProteinFamilies.html' class='help' target='help'>Help on Protein Families</a>\n",          "\n<a href='$baseurl/Html/ProteinFamilies.html' class='help' target='help'>Help on Protein Families</a>\n",
816          &HTML::make_table($col_hdrs, $tab, "Protein Families")          &HTML::make_table($col_hdrs, $tab, "Protein Families")
817      );      );
818  }  }
# Line 842  Line 842 
842       return unless (scalar @families);       return unless (scalar @families);
843       foreach my $fam (@families)       foreach my $fam (@families)
844       {       {
845        my $baseurl=$cgi->url(-base => 1);        my $baseurl=$FIG_Config::cgi_base;
846        my $link="<a href='$baseurl/FIG/proteinfamilies.cgi?user=$user&family=$fam'>$fam</a>";        my $link="<a href='$baseurl/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"];

Legend:
Removed from v.1.139  
changed lines
  Added in v.1.140

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3