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

Diff of /FigWebServices/sigs.cgi

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

revision 1.46, Tue Oct 3 03:00:10 2006 UTC revision 1.47, Wed Oct 18 05:26:24 2006 UTC
# Line 212  Line 212 
212              foreach $_ (@hits) {              foreach $_ (@hits) {
213                  my($peg,$score,$function) = @$_;                  my($peg,$score,$function) = @$_;
214                  my @sub = grep { $fig_or_sprout->usable_subsystem($_) } $fig_or_sprout->peg_to_subsystems($peg);                  my @sub = grep { $fig_or_sprout->usable_subsystem($_) } $fig_or_sprout->peg_to_subsystems($peg);
215                    my $sprout_param = ($cgi->param('SPROUT') ? "&SPROUT=1" : "");
216                  push(@$tab,[$subscript,&HTML::fid_link($cgi,$peg,"local"),$score,$function,join("<br>",@sub)]);                  my $user = $cgi->param('user') || "";
217                    my @linkedSubs = map { $cgi->a({href => "./display_subsys.cgi?ssa_name=$_$sprout_param&request=show_ssa&user=$user&focus=$peg&show_clusters=1"},
218                                                     $_) } @sub;
219                    push(@$tab,[$subscript,&HTML::fid_link($cgi,$peg,"local"),$score,$function,join("<br>",@linkedSubs)]);
220                  $subscript++;                  $subscript++;
221              }              }
222              push(@$html,&HTML::make_table($col_hdrs,$tab,$title));              push(@$html,&HTML::make_table($col_hdrs,$tab,$title));

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3