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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.99, Mon Mar 12 13:39:05 2007 UTC revision 1.100, Wed Apr 4 21:22:52 2007 UTC
# Line 1441  Line 1441 
1441      @roles = $self->get_roles();      @roles = $self->get_roles();
1442      @abbrs = $self->get_abbrs();      @abbrs = $self->get_abbrs();
1443    
1444        #
1445        # Check abbreviations for validity. We disallow spaces, and enforce
1446        # uniqueness.
1447        #
1448    
1449        my %abbrs;
1450        map { s/\s*//g; } @abbrs;
1451        map { $abbrs{$_}++ } @abbrs;
1452    
1453        for (my $i = 0; $i < @abbrs; $i++)
1454        {
1455            my $a = $abbrs[$i];
1456            if ($abbrs{$a} > 1)
1457            {
1458                #
1459                # abbrev is not unique
1460                #
1461                $a = "${a}_" . ($i + 1);
1462                $abbrs[$i] = $a;
1463            }
1464        }
1465    
1466      while (@roles)      while (@roles)
1467      {      {
1468          my $role = shift(@roles);          my $role = shift(@roles);

Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3