Changeset 677 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

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

Author:

sjboddie

Message:

changes for new browsing support

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -132 +132 @@
 }
 
+# use 'Paged' if document has no more than 2 levels
+# and each section at second level has a number for
+# Title metadata
+sub get_document_type {
+    my $self = shift (@_);
+    my ($doc_obj) = @_;
+
+    my $thistype = "VList";
+    my $childtype = "VList";
+    my $title;
+    my @tmp = ();
+    
+    my $section = $doc_obj->get_top_section ();
+    my $first = 1;
+    while (defined $section) {
+    @tmp = split /\./, $section;
+    if (scalar(@tmp) > 1) {
+        return ($thistype, $childtype);
+    }
+    if (!$first) {
+        $title = $doc_obj->get_metadata_element ($section, "Title");
+        if (defined $title && $title !~ /^\d+$/) {
+        return ($thistype, $childtype);
+        }
+    }
+    $first = 0;
+    $section = $doc_obj->get_next_section($section);
+    }
+    if ($doc_obj->get_text_length ($doc_obj->get_top_section())) {
+    $thistype = "Paged";
+    } else {
+    $thistype = "Invisible";
+    }
+    $childtype = "Paged";
+    return ($thistype, $childtype);
+}
+
 sub infodb {
     my $self = shift (@_);
@@ -146 +183 @@
     $self->{'num_docs'} += 1 unless ($doctype eq "classification");
 
+    # is this a paged or a hierarchical document
+    my ($thistype, $childtype) = $self->get_document_type ($doc_obj);
+
     my $section = $doc_obj->get_top_section ();
     my $doc_OID = $doc_obj->get_OID();
+    my $first = 1;
     while (defined $section) {
     # update a few statistics
@@ -192 +233 @@
     }
 
+    # output document display type
+    if ($first) {
+        print $handle "<thistype>$thistype\n";
+    }
+
     # output a list of children
     my $children = $doc_obj->get_children ($section);
     if (scalar(@$children) > 0) {
+        print $handle "<childtype>$childtype\n";
         print $handle "<contains>";
         my $firstchild = 1;
@@ -224 +271 @@
     print $handle '-' x 70, "\n";
 
-
+    $first = 0;
     $section = $doc_obj->get_next_section($section);
     }