Changeset 1608

Timestamp:

2000-10-20T16:35:06+13:00 (24 years ago)

Author:

nzdl

Message:

Inserted an ugly hack into the Hierarchy classifier to mask a bug that's
been lurking about for a while. One day I'll fix it properly... maybe.

File:

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

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -154 +154 @@
     if ((defined $self->{'descriptorlist'}->{$metaelement}) &&
         (defined $self->{'locatorlist'}->{$self->{'descriptorlist'}->{$metaelement}})) {
-
         push (@{$self->{'locatorlist'}->{$self->{'descriptorlist'}->{$metaelement}}->{'contents'}}, 
           [$doc_OID, $sortmeta]);
@@ -168 +167 @@
     my $classifyinfo = $self->get_entry ($self->{'title'}, "VList", "Invisible");
     foreach $OID (keys (%$list)) {
+
     my $tempinfo = $self->get_OID_entry ($OID, $classifyinfo, $list->{$OID}->{'title'}, "VList");
 
@@ -190 +190 @@
     $OID = "" unless defined $OID;
     $OID =~ s/^\.+//;
-    
+
     my ($headOID, $tailOID) = $OID =~ /^(\d+)(.*)$/;
     $tailOID = "" unless defined $tailOID;
-
 
     if (!defined $headOID) {
@@ -204 +203 @@
     
     # add entries to the contains list until we have one for headOID
-    while (scalar(@{$classifyinfo->{'contains'}}) < $headOID) {
+    #### the +10 is a hack that works but I'm not completely sure why 
+    #### and don't have time to delve deeper. one day someone should 
+    #### fix this ;-) -- Stefan
+    while (scalar(@{$classifyinfo->{'contains'}}) <= ($headOID+10)) {
     push (@{$classifyinfo->{'contains'}}, $self->get_entry("", $classifytype));
     }
@@ -214 +216 @@
     my $self = shift (@_);
     my ($title, $childtype, $thistype) = @_;
-    
+
     # organise into classification structure
     my %classifyinfo = ('childtype'=>$childtype,