[Bio] / FigWebServices / subsys_vectors.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys_vectors.cgi

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

revision 1.6, Tue Jul 12 21:20:46 2005 UTC revision 1.7, Tue Jul 12 21:41:36 2005 UTC
# Line 145  Line 145 
145    
146   my $i=2;   my $i=2;
147   foreach my $ss (@ss) {   foreach my $ss (@ss) {
148    push @$col_hdrs, "<a href='FIG/subsys.cgi?user=$user&subsys=$ss target=\"_blank\"'>$label{$ss}</a>";    push @$col_hdrs, "<a href='/FIG/subsys.cgi?user=$user&ssa_name=$ss&request=show_ssa&can_alter=&check=&sort=by_phylo&show_clusters=1' target='_blank'>$label{$ss}</a>";
149    push @$class1, ($class->{$ss}->[0] or "Unclassified");    push @$class1, ($class->{$ss}->[0] or "Unclassified");
150    push @$class2, ($class->{$ss}->[1] or '');    push @$class2, ($class->{$ss}->[1] or '');
151    $i++;    $i++;
# Line 232  Line 232 
232   my $emptyhtml;   my $emptyhtml;
233   if (scalar(@removed)) {   if (scalar(@removed)) {
234    $emptyhtml="<h3>Empty Cells</h3><p>The following subsystems only contained empty cells and are not shown:<ul><li>";    $emptyhtml="<h3>Empty Cells</h3><p>The following subsystems only contained empty cells and are not shown:<ul><li>";
235    $emptyhtml.=join "</li>\n<li>", @removed;    $emptyhtml.=join "</li>\n<li>", map {"<a href='/FIG/subsys.cgi?user=$user&ssa_name=$_&request=show_ssa&can_alter=&check=&sort=by_phylo&show_clusters=1' target='_blank'>$label{$_}</a>\n"} @removed;
236    $emptyhtml.="</li></ul>\n";    $emptyhtml.="</li></ul>\n";
237   }   }
238    
239   push @$html,   push @$html,
240    "<center><h2>Subsystem Vectors</h2></center>",    "<center><h2>Subsystem Vectors</h2></center>",
241    $cgi->start_form, $cgi->hidden('user'),    $cgi->start_form, $cgi->hidden('user'), $cgi->hidden('showempty'), $cgi->hidden('showclassifications'), "\n",
242    &HTML::make_table($col_hdrs, $tab, "Subsystem Version Codes"),  "\n",    &HTML::make_table($col_hdrs, $tab, "Subsystem Version Codes"),  "\n",
243    $cgi->p($emptyhtml),    $cgi->p($emptyhtml),
244    $cgi->p("You may sort by an individual column by picking it using the radio buttons, or you may sort by one of these options",    $cgi->p("You may sort by an individual column by picking it using the radio buttons, or you may sort by one of these options",

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3