[Bio] / FigKernelPackages / SS.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/SS.pm

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

revision 1.2, Thu Oct 1 23:33:22 2009 UTC revision 1.3, Tue Oct 13 19:23:49 2009 UTC
# Line 415  Line 415 
415      my $next = 1000;      my $next = 1000;
416      # Get the list of roles.      # Get the list of roles.
417      my $id_roles = ServerThing::GetIdList(-roles => $args);      my $id_roles = ServerThing::GetIdList(-roles => $args);
418      my @id_roles = map { (ref $_ ? $_ : [$_, "FR" . ++$next]) } @$id_roles;      my @id_roles1 = map { (ref $_ ? $_ : [$_, "FR" . ++$next]) } @$id_roles;
419    
420        my @id_roles = ();
421        foreach my $tuple (@id_roles1)
422        {
423            my($function,$id) = @$tuple;
424            foreach my $role (split(/(; )|( [\]\@] )/,$function))
425            {
426                push(@id_roles,[$role,$id]);
427            }
428        }
429    
430      my %big;      my %big;
431      my $id_display = 1;      my $id_display = 1;
432      map {push(@{$big{$_->[0]}}, $_->[1])} @id_roles;      map {push(@{$big{$_->[0]}}, $_->[1])} @id_roles;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3