Changeset 18566 for gsdl


Ignore:
Timestamp:
02/20/09 17:05:38 (12 years ago)
Author:
kjdon
Message:

List renamed to SimpleList

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

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;
Note: See TracChangeset for help on using the changeset viewer.