Changeset 426 for trunk/gsdl/perllib/classify/List.pm

Timestamp:

1999-08-02T17:17:27+12:00 (25 years ago)

Author:

sjboddie

Message:

changed way options are passed

File:

• trunk/gsdl/perllib/classify/List.pm (modified) (5 diffs)

trunk/gsdl/perllib/classify/List.pm

@@ -1 +1 @@
 # simple list classifier plugin 
-# collect.cfg usage: 'List metaelement' or simply 'List'
-# the first will create a single list of all documents
-# with metaelement metadata (sorted alphabetically by whichever
-# metadata element was chosen).
-# The second will create a single list of all documents
-# which won't be sorted at all - they may well be in 
-# some completely random order ;-|
-
+# options are:
+# metadata=Metaname -- (optional) all documents with Metaname metadata
+#                      will be included in list, list will be sorted
+#                      by this element. if not included all documents
+#                      will be included in list in build (random) order
+# title=Title       -- (optional) the title field for this classification.
+#                      if not included title field will be Metaname. 
+#                      if metadata is also not included title will be 'List'
 
 package List;
@@ -17 +17 @@
 
     my $list = [];
-    if (defined $options[0]) {
-    $list = {};
+    my ($metaname, $title);
+
+    foreach $option (@options) {
+    if ($option =~ /^metadata=(.*)$/i) {
+        $metaname = $1;
+        $list = {};
+    } elsif ($option =~ /^title=(.*)$/i) {
+        $title = $1;
+    }
+    }
+
+    if (!defined $title) {
+    if (defined $metaname) {
+        $title = $metaname;
+    } else {
+        $title = 'List';
+    }
     }
 
     return bless {
     'list'=>$list,
-    'metaname' => $options[0]
+    'metaname' => $metaname,
+    'title' => $title
     }, $class;
 }
@@ -53 +69 @@
         }
         if (defined $self->{'list'}->{$doc_OID}) {
+        print STDERR "metavalue: $metavalue\n";
+        print STDERR "title: $self->{'title'}\n";
         print STDERR "WARNING: List::classify called multiple times for $doc_OID\n";
         } 
@@ -65 +83 @@
     my $self = shift (@_);
 
-    my $classifytitle = "List";
     my $contains = "";
     my @list = ();
     if (defined $self->{'metaname'}) {
-    $classifytitle = $self->{'metaname'};
     if (keys %{$self->{'list'}}) {
         @list = sort {$self->{'list'}->{$a} 
@@ -80 +96 @@
     # organise into classification structure
     my %classifyinfo = ('classifytype'=>'List',
-            'Title'=>$classifytitle,
+            'Title'=>$self->{'title'},
             'contains'=>[]);
     foreach $OID (@list) {