Changeset 677 for trunk/gsdl/perllib/classify/DateList.pm

Timestamp:

1999-10-15T12:36:14+13:00 (25 years ago)

Author:

sjboddie

Message:

changes for new browsing support

File:

• trunk/gsdl/perllib/classify/DateList.pm (modified) (4 diffs)

trunk/gsdl/perllib/classify/DateList.pm

@@ -79 +79 @@
 sub get_entry {
     my $self = shift (@_);
-    my ($title, $classifytype) = @_;
+    my ($title, $childtype, $thistype) = @_;
     
     # organise into classification structure
-    my %classifyinfo = ('classifytype'=>$classifytype,
+    my %classifyinfo = ('childtype'=>$childtype,
             'Title'=>$title,
             'contains'=>[]);
+    $classifyinfo{'thistype'} = $thistype 
+    if defined $thistype && $thistype =~ /\w/;
 
     return \%classifyinfo;
@@ -97 +99 @@
 
     # top level
-    my $classifyinfo = $self->get_entry ("Date", "DateList");
+    my $childtype = "HList";
+    if (scalar (@$classlistref) <= 20) {$childtype = "DateList";}
+    my $classifyinfo = $self->get_entry ("Date", $childtype, "Invisible");
 
     # don't need to do any splitting if there are less than 20 classifications
@@ -164 +168 @@
         @currentOIDs = ();
         $currentfirstletter = "";
+        $lastkey = $subsection;
         } else {
         @currentOIDs = @{$classhashref->{$subsection}};
@@ -175 +180 @@
     # add final sub-classification
     if (scalar (@currentOIDs) < $min) {
-    my ($newkey) = $lastkey =~ /^(.)/;
+    my ($newkey) = $lastkey =~ /^(\d\d\d\d)/;
     @currentOIDs = (@{$compactedhash->{$lastkey}}, @currentOIDs);
     delete $compactedhash->{$lastkey};