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

Diff of /FigWebServices/check_subsys.cgi

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

revision 1.19, Tue Jan 9 02:21:03 2007 UTC revision 1.20, Tue Jan 9 02:39:15 2007 UTC
# Line 262  Line 262 
262          my $left_outN    = (@left_out > 0) ? @left_out : 0;          my $left_outN    = (@left_out > 0) ? @left_out : 0;
263          my @maybe_add    = grep { ($_ =~ /maybe-add\t[^\t]+\t[^\t]+\t(\d+\.\d+)/) } @tmp;          my @maybe_add    = grep { ($_ =~ /maybe-add\t[^\t]+\t[^\t]+\t(\d+\.\d+)/) } @tmp;
264          my $maybe_addN   = (@maybe_add > 0) ? @maybe_add : 0;          my $maybe_addN   = (@maybe_add > 0) ? @maybe_add : 0;
265          push(@$tab,[$sub,$ts,$mismatchesN,$left_outN,$maybe_addN]);          push(@$tab,[&sub_link($cgi,$sub,$user),$ts,$mismatchesN,$left_outN,$maybe_addN]);
266      }      }
267      push(@$html,$cgi->h3("Note that the following statistics do not take into account actions since last check"),      push(@$html,$cgi->h3("Note that the following statistics do not take into account actions since last check"),
268           &HTML::make_table($col_hdrs,$tab,"Summary of Possible Things to Check"));           &HTML::make_table($col_hdrs,$tab,"Summary of Possible Things to Check"));
269  }  }
270    
271    sub sub_link {
272        my($cgi,$sub,$user) = @_;
273        my $url = &FIG::cgi_url . "/subsys.cgi?request=show_ssa&user=master:$user&ssa_name=$sub&can_alter=1&check=1";
274        my $target = "window$$";
275        return "<a href=$url target=$target>$sub</a>";
276    }

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3