Changeset 10663 for trunk/gsdl/perllib/classify/HFileHierarchy.pm

Timestamp:

2005-09-29T10:54:06+12:00 (19 years ago)

Author:

kjdon

Message:

added documents_last - display document nodes after classifier nodes in the lists

File:

• trunk/gsdl/perllib/classify/HFileHierarchy.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/HFileHierarchy.pm

@@ -74 +74 @@
     'desc' => "{Hierarchy.hlist_at_top}",
     'type' => "flag",
-    'reqd' => "no" } ];
+    'reqd' => "no" },
+      { 'name' => "documents_last",
+    'desc' => "{Hierarchy.documents_last}",
+    'type' => "flag",
+    'reqd' => "no"}
+      ];
 
 my $options = 
@@ -273 +278 @@
 
     $classifyinfo->{'contains'} = [] unless defined $classifyinfo->{'contains'};
+    if ($self->{'documents_last'}) {
+    # documents should come after nodes in the classifier
+
+    my $doc_pos = 0;
+    foreach my $thing (@{$classifyinfo->{'contains'}}) {
+        last if defined $thing->{'OID'};
+        $doc_pos++;
+    }
+    
+    while ($doc_pos < $headOID) {
+        splice(@{$classifyinfo->{'contains'}}, $doc_pos, 0, $self->get_entry("", $classifytype));
+        $doc_pos++;
+    }
+
+    return $self->get_OID_entry ($tailOID, $classifyinfo->{'contains'}->[($headOID-1)], $title, $classifytype);
+
+    }
+    
+    # else, documents come before nodes
     my $offset = 0;
     foreach my $thing (@{$classifyinfo->{'contains'}}) {