Changeset 10218 for trunk/gsdl/perllib/classify/AllList.pm

Timestamp:

2005-07-06T15:27:45+12:00 (19 years ago)

Author:

kjdon

Message:

Jeffrey's new parsing modifications, committed approx 6 July, 15.16

File:

• trunk/gsdl/perllib/classify/AllList.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify/AllList.pm

@@ -15 +15 @@
 
 sub new {
-    my $class = shift (@_);
-    my $self  = new BasClas($class, @_);
+    my ($class) = shift (@_);
+    my ($classifierslist,$inputargs,$hashArgOptLists) = @_;
+    push(@$classifierslist, $class);
 
+    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
+    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+
+    my $self = (defined $hashArgOptLists)? new BasClas($classifierslist,$inputargs,$hashArgOptLists): new BasClas($classifierslist,$inputargs);
+
+    # Manually set $self parameters.
     $self->{'list'} = [];
-    $self->{'title'} = "All Documents";
+    $self->{'buttonname'} = "All Documents";
 
     return bless $self, $class;
@@ -44 +51 @@
 
     my %classifyinfo = ('childtype'   =>'VList',
-            'Title'       =>$self->{'title'},
+            'Title'       =>$self->{'buttonname'},
             'contains'    =>[],
             'classifyOID' =>"oai");
@@ -56 +63 @@
        
     my %tempinfo=('childtype'=>'VList',
-              'Title'=>$self->{'title'},
+              'Title'=>$self->{'buttonname'},
               'classifyOID' =>"oai.$seqNo",
               'contains'    =>[]);