[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.6, Wed Mar 12 16:17:19 2008 UTC revision 1.7, Wed Mar 12 16:24:40 2008 UTC
# Line 261  Line 261 
261    
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 = &get_assertions($fig,\@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 } map { ($_->[3] eq 'Expert') ? $_->[4] : () } @assertions;
266      my @experts = sort keys(%by_whom);      my @experts = sort keys(%by_whom);
267    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3