[Bio] / Sprout / SproutLoad.pm Repository:
ViewVC logotype

Diff of /Sprout/SproutLoad.pm

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

revision 1.85, Mon Jul 16 19:59:33 2007 UTC revision 1.86, Mon Aug 20 23:30:35 2007 UTC
# Line 168  Line 168 
168          for my $subsystem (keys %subsystems) {          for my $subsystem (keys %subsystems) {
169              my $name = $subsystem;              my $name = $subsystem;
170              $name =~ s/_/ /g;              $name =~ s/_/ /g;
171              my $classes = $fig->subsystem_classification($subsystem);  #            my $classes = $fig->subsystem_classification($subsystem);
172              $name .= " " . join(" ", @{$classes});  #            $name .= " " . join(" ", @{$classes});
173              $subsystems{$subsystem} = $name;              $subsystems{$subsystem} = $name;
174          }          }
175      }      }
# Line 474  Line 474 
474                      }                      }
475                      # Now we need to find the subsystems this feature participates in.                      # Now we need to find the subsystems this feature participates in.
476                      # We also add the subsystems to the keyword list. Before we do that,                      # We also add the subsystems to the keyword list. Before we do that,
477                      # we must convert underscores to spaces and tack on the classifications.                      # we must convert underscores to spaces.
478                      my @subsystems = $fig->peg_to_subsystems($featureID);                      my @subsystems = $fig->peg_to_subsystems($featureID);
479                      for my $subsystem (@subsystems) {                      for my $subsystem (@subsystems) {
480                          # Only proceed if we like this subsystem.                          # Only proceed if we like this subsystem.

Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3