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

Diff of /FigWebServices/show_exp_assertions.cgi

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

revision 1.7, Wed Mar 12 16:24:40 2008 UTC revision 1.9, Wed Mar 12 16:58:04 2008 UTC
# Line 262  Line 262 
262      my $subO = $fig->get_subsystem($subsys);      my $subO = $fig->get_subsystem($subsys);
263      my @pegs = $subO->get_all_pegs;      my @pegs = $subO->get_all_pegs;
264      my @assertions = &FIG::get_expert_assertions(\@pegs);      my @assertions = &FIG::get_expert_assertions(\@pegs);
265      my %by_whom = map { $_ => 1 } map { ($_->[3] eq 'Expert') ? $_->[4] : () } @assertions;      my %by_whom = map { $_->[1] => 1 }  @assertions;
266      my @experts = sort keys(%by_whom);      my @experts = sort keys(%by_whom);
267    
268      my $col_hdrs = ['','Expert'];      my $col_hdrs = ['','Expert'];

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3