Changeset 2954

Timestamp:

2002-02-07T16:18:36+13:00 (22 years ago)

Author:

jrm21

Message:

added a remove_prefix option to strip from metadata before sorting for
classification. (eg remove "re:" or "fwd:" from email subject lines first).

Location:

trunk/gsdl/perllib/classify

Files:

• AZList.pm (modified) (4 diffs)
• AZSectionList.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/AZList.pm

@@ -41 +41 @@
   options:
  
-  -metadata X     (required) Metadata field used for classification.
-                  List will be sorted by this element.
-
-  -buttonname X   (optional) Button name for this classification.
-                  defaults to metadata name. 
+  -metadata X           (required) Metadata field used for classification.
+                        List will be sorted by this element.
+
+  -buttonname X         (optional) Button name for this classification.
+                        defaults to metadata name. 
+
+  -removeprefix regex   (optional) A prefix to ignore in the Metadata values
+                        for the field when sorting.
 ";
 }
@@ -53 +56 @@
     my $self = new BasClas($class, @_);
     
-    my ($metaname, $title);
+    my ($metaname, $title, $removeprefix);
     
     if (!parsargv::parse(\@_, 
              q^metadata/.*/^, \$metaname,
              q^buttonname/.*/^, \$title,
+             q^removeprefix/.*/^, \$removeprefix,
              "allow_extra_options")) {
     
@@ -76 +80 @@
     $self->{'metaname'} = $metaname;
     $self->{'title'} = $title;
+    if (defined($removeprefix) && $removeprefix) {
+    $self->{'removeprefix'} = $removeprefix;
+    }
 
     return bless $self, $class;
@@ -97 +104 @@
     # sorting by we won't include it in this classification
     if (defined $metavalue && $metavalue ne "") {
+    if ($self->{'removeprefix'}) {
+        $metavalue =~ s/^$self->{'removeprefix'}//;
+    }
+
     if ($self->{'metaname'} eq 'Language') {
         $metavalue = $iso639::fromiso639{$metavalue};

trunk/gsdl/perllib/classify/AZSectionList.pm

@@ -45 +45 @@
 sub print_usage {
     print STDERR "
-  usage: classify AZSectionList [options]
+  usage: classify AZSectionList -metadata X [options]
   options:
 
-   -metadata X    Metadata field used for classification,
-                  list will be sorted by this element.
+  -metadata X       (required) Metadata field used for classification.
+            List will be sorted by this element.
 
-   -buttonname X  (OPTIONAL) Title field for this classification.
-                  if not included title field will be Metaname. 
+  -buttonname X     Button name for this classification.
+            defaults to metadata name. 
+
+  -removeprefix regex   A prefix to ignore in the Metadata values
+            for the field when sorting.
 
 This is very similar to AZList except it sorts by section level metadata
@@ -89 +92 @@
     # sorting by we won't include it in this classification
     if (defined $metavalue && $metavalue ne "") {
+    if ($self->{'removeprefix'}) {
+        $metavalue =~ s/^$self->{'removeprefix'}//;
+    }
+
     if ($self->{'metaname'} eq 'Creator') {
         &sorttools::format_string_name_english (\$metavalue);