Changeset 18569 for gsdl

Show
Ignore:
Timestamp:
20.02.2009 17:20:53 (11 years ago)
Author:
kjdon
Message:

fixed a bug which meant that a top level folder was showing

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/classify/SimpleList.pm

    r18565 r18569  
    214214sub get_classify_info { 
    215215    my $self = shift (@_); 
    216     my ($no_thistype) = @_; 
     216    my ($gli, $no_thistype) = @_; 
    217217    $no_thistype = 0 unless defined $no_thistype; 
    218218    my $memberof = &supports_memberof();