Changeset 8763


Ignore:
Timestamp:
2004-12-09T11:24:25+13:00 (19 years ago)
Author:
mdewsnip
Message:

Added a missing curly bracket.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/classify/Hierarchy.pm

    r8716 r8763  
    237237            push (@{$tempinfo->{'contains'}}, {'OID'=>$subOID->[0]});
    238238        }
    239         } else {
    240         foreach $subOID (sort {$a->[1] cmp $b->[1];} @{$list->{$OID}->{'contents'}}) {
    241         push (@{$tempinfo->{'contains'}}, {'OID'=>$subOID->[0]});
    242239        }
    243     } else {
     240        else {
     241        foreach $subOID (sort {$a->[1] cmp $b->[1];} @{$list->{$OID}->{'contents'}}) {
     242            push (@{$tempinfo->{'contains'}}, {'OID'=>$subOID->[0]});
     243        }
     244        }
     245    }
     246    else {
    244247        foreach $subOID (@{$list->{$OID}->{'contents'}}) {
    245248        push (@{$tempinfo->{'contains'}}, {'OID'=>$subOID->[0]});
Note: See TracChangeset for help on using the changeset viewer.