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

Diff of /FigKernelPackages/ANNO.pm

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

revision 1.2, Wed Dec 16 20:18:07 2009 UTC revision 1.3, Fri Jan 15 12:54:57 2010 UTC
# Line 82  Line 82 
82      foreach my $tuple (@id_roles1)      foreach my $tuple (@id_roles1)
83      {      {
84          my($function,$id) = @$tuple;          my($function,$id) = @$tuple;
85          foreach my $role (split(/(; )|( [\]\@] )/,$function))          foreach my $role (split(/(?:; )|(?: [\]\@] )/,$function))
86          {          {
87              push(@id_roles,[$role,$id]);              push(@id_roles,[$role,$id]);
88          }          }
# Line 101  Line 101 
101      }      }
102      foreach my $sub (keys %ss_roles) {      foreach my $sub (keys %ss_roles) {
103          my $roles = $ss_roles{$sub};          my $roles = $ss_roles{$sub};
104            my @rolesubset = grep { $big{$_} } keys %$roles;
105          my @abbr = map{$roles->{$_}} grep { $big{$_}} keys %$roles;          my @abbr = map{$roles->{$_}} @rolesubset;
106          my $set =  join(" ",  @abbr);          my $set =  join(" ",  @abbr);
107          if (@abbr > 0) {          if (@abbr > 0) {
108              my ($variant, $size) = $self->get_max_subset($sub, $set);              my ($variant, $size) = $self->get_max_subset($sub, $set);
109              if ($variant) {              if ($variant) {
110                  foreach my $role (keys %$roles) {                  foreach my $role (keys %$roles) {
111                      if ($id_display) {                      if ($id_display) {
112                            if (exists $big{$role}) {
113                          foreach my $id (@{$big{$role}}) {                          foreach my $id (@{$big{$role}}) {
114                              push (@$retVal, [$variant, $role, $id]);                              push (@$retVal, [$variant, $role, $id]);
115                          }                          }
116                            }
117                      } else {                      } else {
118                          push (@$retVal, [$variant, $role]);                          push (@$retVal, [$variant, $role]);
119                      }                      }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3