Changeset 18566

Timestamp:

2009-02-20T17:05:38+13:00 (15 years ago)

Author:

kjdon

Message:

List renamed to SimpleList

Location:

gsdl/trunk/perllib/classify

Files:

• AZCompactList.pm (modified) (2 diffs)
• AZCompactSectionList.pm (modified) (2 diffs)
• SectionList.pm (modified) (4 diffs)

gsdl/trunk/perllib/classify/AZCompactList.pm

@@ -351 +351 @@
 
     my $pm;
-    foreach $pm ("List", "SectionList")
+    foreach $pm ("SimpleList", "SectionList")
     {
     my $listname 
@@ -392 +392 @@
         if ($doclevel =~ m/^top(level)?/i)
         {
-            eval ("\$listclassobj = new List([],\$ptArgs)"); 
+            eval ("\$listclassobj = new SimpleList([],\$ptArgs)"); 
         }
         else

gsdl/trunk/perllib/classify/AZCompactSectionList.pm

@@ -88 +88 @@
 
     my $pm;
-    foreach $pm ("List", "SectionList")
+    foreach $pm ("SimpleList", "SectionList")
     {
     my $listname 
@@ -123 +123 @@
         if ($doclevel =~ m/^top(level)?/i)
         {
-            eval ("\$listclassobj = new List([],\$ptArgs)"); warn $@ if $@;
+            eval ("\$listclassobj = new SimpleList([],\$ptArgs)"); warn $@ if $@;
         }
         else

gsdl/trunk/perllib/classify/SectionList.pm

@@ -24 +24 @@
 ###########################################################################
 
-# Same as List classifier but includes all sections of document
+# Same as SimpleList classifier but includes all sections of document
 # (excluding top level) rather than just top level document 
 # itself
@@ -31 +31 @@
 package SectionList;
 
-use List;
+use SimpleList;
 use sorttools;
 
@@ -38 +38 @@
 
 sub BEGIN {
-    @SectionList::ISA = ('List');
+    @SectionList::ISA = ('SimpleList');
 }
 
@@ -56 +56 @@
     push(@{$hashArgOptLists->{"OptList"}},$options);
 
-    my $self = new List($classifierslist, $inputargs, $hashArgOptLists);
+    my $self = new SimpleList($classifierslist, $inputargs, $hashArgOptLists);
 
     return bless $self, $class;