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

Timestamp:

2001-01-16T11:50:05+13:00 (23 years ago)

Author:

paynter

Message:

Updated classifiers to use the parsearg library instead of ad-hoc
"x=y" style parsing. (Backwards compatability maintained through
a quick hack to the load_classifier function in classfy.pm.)

File:

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

trunk/gsdl/perllib/classify/List.pm

@@ -38 +38 @@
 #                      if metadata is also not included title will be 'List'
 
+use BasClas;
 package List;
 
@@ -46 +47 @@
 }
 
+sub print_usage {
+    print STDERR "
+  usage: classify List [options]
+  options:
+
+   -metadata X    Metadata field used for classification,
+                  list will be sorted by this element.
+
+   -title X       (optional) Title field for this classification.
+                  if not included title field will be Metaname. 
+
+   -sort X        (optional) Sort documents in list by this metadata field.
+                  By default it will sort by Metaname, or (if this is not
+                  set) in build (random) order.
+";
+}
+
 sub new {
-    my ($class, @options) = @_;
-    my $self = new BasClas ($class, @_);
-
-    my $list = [];
-    my ($metaname, $title, $sortname);
-
-    foreach $option (@options) {
-    if ($option =~ /^metadata=(.*)$/i) {
-        $metaname = $1;
-        $list = {};
-    } elsif ($option =~ /^title=(.*)$/i) {
-        $title = $1;
-    } elsif ($option =~ /^sort=(.*)$/i) {
-        $sortname = $1;
-    }
-    }
-
-    if (!defined $title) {
-    if (defined $metaname) {
+    my $class = shift (@_);
+    my $self = new BasClas($class, @_);
+    
+    my ($metaname, $title, $sortname, $list);
+
+    if (!parsargv::parse(\@_, 
+             q^metadata/.*/^, \$metaname,
+             q^title/.*/^, \$title,
+             q^sort/.*/^, \$sortname,
+             "allow_extra_options")) {
+    
+    print STDERR "\nIncorrect options passed to $class, check your collect.cfg file\n";
+    &print_usage();
+    die "\n";
+    }
+
+    if (!$title) {
+    if ($metaname) {
         $title = $metaname;
     } else {
@@ -72 +89 @@
     }
 
-    if (defined $sortname && $sortname =~ /^nosort$/i) {
-    $sortname = undef;
-    } elsif (!defined $sortname && defined $metaname) {
-    $sortname = $metaname;
+    if (!$sortname) {
+    if ($metaname) {
+        $sortname = $metaname;
+    } else {
+        $sortname = undef;
+    }
+    }
+
+    if ($metaname) {
+    $list = {};
+    } else {
+    $list = [];
+    $metaname = undef;
     }