Changeset 2897

Timestamp:

2001-12-13T15:52:28+13:00 (22 years ago)

Author:

sjboddie

Message:

Added AZCompactSectionList which was contributed by Don Gourley
<gourley@…> - All these classifiers need sorting out some time ...

Location:

trunk/gsdl/perllib/classify

Files:

• AZCompactList.pm (modified) (2 diffs)
• AZCompactSectionList.pm (added)

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -325 +325 @@
         else
         {
-            eval ("\$listclassobj = new SectionList($args)");
+            eval ("\$listclassobj = new SectionList(\@args)");
         }
         }
@@ -339 +339 @@
         push @args, "-recopt";
 
-        eval ("\$listclassobj = new AZCompactList($args)");
+        eval ("\$listclassobj = new AZCompactList(\@args)");
         }
         if ($@) {