Changeset 18566 for gsdl/trunk/perllib
- Timestamp:
- 2009-02-20T17:05:38+13:00 (15 years ago)
- Location:
- gsdl/trunk/perllib/classify
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/AZCompactList.pm
r18455 r18566 351 351 352 352 my $pm; 353 foreach $pm (" List", "SectionList")353 foreach $pm ("SimpleList", "SectionList") 354 354 { 355 355 my $listname … … 392 392 if ($doclevel =~ m/^top(level)?/i) 393 393 { 394 eval ("\$listclassobj = new List([],\$ptArgs)");394 eval ("\$listclassobj = new SimpleList([],\$ptArgs)"); 395 395 } 396 396 else -
gsdl/trunk/perllib/classify/AZCompactSectionList.pm
r17209 r18566 88 88 89 89 my $pm; 90 foreach $pm (" List", "SectionList")90 foreach $pm ("SimpleList", "SectionList") 91 91 { 92 92 my $listname … … 123 123 if ($doclevel =~ m/^top(level)?/i) 124 124 { 125 eval ("\$listclassobj = new List([],\$ptArgs)"); warn $@ if $@;125 eval ("\$listclassobj = new SimpleList([],\$ptArgs)"); warn $@ if $@; 126 126 } 127 127 else -
gsdl/trunk/perllib/classify/SectionList.pm
r18455 r18566 24 24 ########################################################################### 25 25 26 # Same as List classifier but includes all sections of document26 # Same as SimpleList classifier but includes all sections of document 27 27 # (excluding top level) rather than just top level document 28 28 # itself … … 31 31 package SectionList; 32 32 33 use List;33 use SimpleList; 34 34 use sorttools; 35 35 … … 38 38 39 39 sub BEGIN { 40 @SectionList::ISA = (' List');40 @SectionList::ISA = ('SimpleList'); 41 41 } 42 42 … … 56 56 push(@{$hashArgOptLists->{"OptList"}},$options); 57 57 58 my $self = new List($classifierslist, $inputargs, $hashArgOptLists);58 my $self = new SimpleList($classifierslist, $inputargs, $hashArgOptLists); 59 59 60 60 return bless $self, $class;
Note:
See TracChangeset
for help on using the changeset viewer.