Changeset 384 for trunk

Timestamp:

1999-07-14T14:52:39+12:00 (25 years ago)

Author:

sjboddie

Message:

added a sort option

File:

• trunk/gsdl/perllib/classify/Hierarchy.pm (modified) (7 diffs)

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -1 +1 @@
 # classifier plugin for generating hierarchical classifications
+
+# options for this classifier are:
+# file.txt - classification file
+# Metaname - metadata field to test against file.txt
+# sort=Meta - this option is optional (genious;-). by default this 
+#             classifier will sort documents within each section 
+#             alphabetically by Title. sort=nosort prevents sorting 
+#             (i.e. documents will end up in build order), sort=Meta 
+#             will sort each field alphabetically by Meta (Meta may 
+#             also be 'Filename' to sort by the original filename).
+
 
 package Hierarchy;
@@ -5 +16 @@
 use util;
 use cfgread;
+use sorttools;
 
 sub new {
@@ -13 +25 @@
         "Usage: Hierarchy subjectfile metadata\n";
     }
-
+    my $sortname = "Title";
+    if ((scalar @options > 2) && $options[2] =~ /^sort=(.*)$/i) {
+    $sortname = $1;
+    $sortname = undef if $sortname =~ /^nosort$/;
+    }
+    
     my $subjectfile = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"etc", $options[0]);
     if (!-e $subjectfile) {
@@ -28 +45 @@
     'locatorlist'=>{},    # second field in subject file
     'subjectfile' => $subjectfile,
-    'metaname' => $options[1]
+    'metaname' => $options[1],
+    'sortname' => $sortname
     }, $class;
 }
@@ -62 +80 @@
     if ((defined $self->{'descriptorlist'}->{$metaelement}) &&
         (defined $self->{'locatorlist'}->{$self->{'descriptorlist'}->{$metaelement}})) {
-        push (@{$self->{'locatorlist'}->{$self->{'descriptorlist'}->{$metaelement}}->{'contents'}}, $doc_OID);
+
+        my $sortmeta = "";
+        if (defined $self->{'sortname'}) {
+        if ($self->{'sortname'} =~ /^filename$/i) {
+            $sortmeta = $doc_obj->get_source_filename();
+        } else {
+            $sortmeta = $doc_obj->get_metadata_element($doc_obj->get_top_section(),
+                                   $self->{'sortname'});
+            if ($self-{'sortname'} eq "Creator") {
+            &sorttools::format_string_name_english ($sortmeta);
+            } else {
+            &sorttools::format_string_english ($sortmeta);
+            }
+        }
+        $sortmeta = "" unless defined $sortmeta;
+        }
+
+        push (@{$self->{'locatorlist'}->{$self->{'descriptorlist'}->{$metaelement}}->{'contents'}}, 
+          [$doc_OID, $sortmeta]);
     }
     }
@@ -76 +112 @@
     foreach $OID (keys (%$list)) {
     my $tempinfo = $self->get_OID_entry ($OID, $classifyinfo, $list->{$OID}->{'title'}, "Hierarchy");
-    foreach $subOID (@{$list->{$OID}->{'contents'}}) {
-        push (@{$tempinfo->{'contains'}}, {'OID'=>$subOID});
+
+    if (defined $self->{'sortname'}) {
+        foreach $subOID (sort {$a->[1] cmp $b->[1];} @{$list->{$OID}->{'contents'}}) {
+        push (@{$tempinfo->{'contains'}}, {'OID'=>$subOID->[0]});
+        }
+    } else {
+        foreach $subOID (@{$list->{$OID}->{'contents'}}) {
+        push (@{$tempinfo->{'contains'}}, {'OID'=>$subOID->[0]});
+        }
     }
     }
-
+    
     return $classifyinfo;
 }
@@ -124 +167 @@
 }
 
+
+
 1;