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

Diff of /Sprout/Sapling.pm

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

revision 1.36, Sat Dec 25 15:57:45 2010 UTC revision 1.37, Mon Jan 3 18:08:10 2011 UTC
# Line 1032  Line 1032 
1032      # Get the parameters.      # Get the parameters.
1033      my ($self, $subName) = @_;      my ($self, $subName) = @_;
1034      # Normalize the subsystem name by converting underscores to spaces.      # Normalize the subsystem name by converting underscores to spaces.
1035        # Underscores at the end are not converted.
1036      my $retVal = $subName;      my $retVal = $subName;
1037      $retVal =~ s/_/ /g;      $retVal =~ s/_(?=.)/ /g;
1038      # Return the result.      # Return the result.
1039      return $retVal;      return $retVal;
1040  }  }
# Line 1156  Line 1157 
1157              my $fig = $self->GetSourceObject();              my $fig = $self->GetSourceObject();
1158              for my $subsystem ($fig->all_subsystems()) {              for my $subsystem ($fig->all_subsystems()) {
1159                  my $subsysID = $self->SubsystemID($subsystem);                  my $subsysID = $self->SubsystemID($subsystem);
                 if ($subsysID =~ /\s$/) {  
                     Trace("Ignoring duplicate subsystem $subsystem.") if T(1);  
                 } else {  
1160                      $subHash{$subsysID} = 1;                      $subHash{$subsysID} = 1;
1161                  }                  }
1162          }          }

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3