Changeset 18566

Show
Ignore:
Timestamp:
20.02.2009 17:05:38 (11 years ago)
Author:
kjdon
Message:

List renamed to SimpleList?

Location:
gsdl/trunk/perllib/classify
Files:
3 modified

Legend:

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

    r18455 r18566  
    351351 
    352352    my $pm; 
    353     foreach $pm ("List", "SectionList") 
     353    foreach $pm ("SimpleList", "SectionList") 
    354354    { 
    355355    my $listname  
     
    392392        if ($doclevel =~ m/^top(level)?/i) 
    393393        { 
    394             eval ("\$listclassobj = new List([],\$ptArgs)");  
     394            eval ("\$listclassobj = new SimpleList([],\$ptArgs)");  
    395395        } 
    396396        else 
  • gsdl/trunk/perllib/classify/AZCompactSectionList.pm

    r17209 r18566  
    8888 
    8989    my $pm; 
    90     foreach $pm ("List", "SectionList") 
     90    foreach $pm ("SimpleList", "SectionList") 
    9191    { 
    9292    my $listname  
     
    123123        if ($doclevel =~ m/^top(level)?/i) 
    124124        { 
    125             eval ("\$listclassobj = new List([],\$ptArgs)"); warn $@ if $@; 
     125            eval ("\$listclassobj = new SimpleList([],\$ptArgs)"); warn $@ if $@; 
    126126        } 
    127127        else 
  • gsdl/trunk/perllib/classify/SectionList.pm

    r18455 r18566  
    2424########################################################################### 
    2525 
    26 # Same as List classifier but includes all sections of document 
     26# Same as SimpleList classifier but includes all sections of document 
    2727# (excluding top level) rather than just top level document  
    2828# itself 
     
    3131package SectionList; 
    3232 
    33 use List; 
     33use SimpleList; 
    3434use sorttools; 
    3535 
     
    3838 
    3939sub BEGIN { 
    40     @SectionList::ISA = ('List'); 
     40    @SectionList::ISA = ('SimpleList'); 
    4141} 
    4242 
     
    5656    push(@{$hashArgOptLists->{"OptList"}},$options); 
    5757 
    58     my $self = new List($classifierslist, $inputargs, $hashArgOptLists); 
     58    my $self = new SimpleList($classifierslist, $inputargs, $hashArgOptLists); 
    5959 
    6060    return bless $self, $class;