Changeset 637 for trunk/gsdl/perllib/classify.pm

Timestamp:

1999-09-29T08:40:14+12:00 (25 years ago)

Author:

rjmcnab

Message:

added code to calculate the number of leaf nodes in a
classification hierarchy and put the result in numleafnodes

File:

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

trunk/gsdl/perllib/classify.pm

@@ -111 +111 @@
  
     # don't want empty classifications
-    if ($allclassifications || &clean_contents ($classifyinfo)) {
+    if ($allclassifications || &check_contents ($classifyinfo) > 0) {
    
     $OID = $classifyinfo->{'classifyOID'} if defined ($classifyinfo->{'classifyOID'});
@@ -120 +120 @@
     $outputtext .= "<classifytype>$classifyinfo->{'classifytype'}\n" if defined $classifyinfo->{'classifytype'};
     $outputtext .= "<Title>$classifyinfo->{'Title'}\n" if defined $classifyinfo->{'Title'};
+    $outputtext .= "<numleafdocs>$classifyinfo->{'numleafdocs'}\n" if defined $classifyinfo->{'numleafdocs'};
+    print "numleafdocs = $classifyinfo->{'numleafdocs'}\n" if defined $classifyinfo->{'numleafdocs'};
     
     $outputtext .= "<contains>";
@@ -153 +155 @@
 }
 
-sub clean_contents {
+sub check_contents {
     my ($classifyinfo) = @_;
-    my $has_content = 0;
+    my $num_leaf_docs = 0;
+    my $sub_num_leaf_docs = 0;
+
+    return $classifyinfo->{'numleafdocs'} if (defined $classifyinfo->{'numleafdocs'});
 
     foreach $content (@{$classifyinfo->{'contains'}}) {
     if (defined $content->{'OID'}) {
         # found a book
-        $has_content = 1;
-    } elsif (&clean_contents ($content)) {
+        $num_leaf_docs ++;
+    } elsif (($sub_num_leaf_docs = &check_contents ($content)) > 0) {
         # there's a book somewhere below
-        $has_content = 1;
+        $num_leaf_docs += $sub_num_leaf_docs;
     } else {
         # section contains no books so we want to remove 
@@ -170 +175 @@
     }
     }
-    return $has_content;
+
+    $classifyinfo->{'numleafdocs'} = $num_leaf_docs;
+    return $num_leaf_docs;
 }