Changeset 6553

Timestamp:

2004-01-20T14:53:13+13:00 (20 years ago)

Author:

kjdon

Message:

If a plugin sets the gsdlthistype metadata to Paged, then the document will be treated as a paged doc - this allows Titles that are not totally numeric.

Location:

trunk/gsdl/perllib

Files:

• mgbuildproc.pm (modified) (2 diffs)
• mgppbuildproc.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgbuildproc.pm

@@ -201 +201 @@
 # and each section at second level has a number for
 # Title metadata
+#also use Paged if gsdlthistype metadata is set to Paged
 sub get_document_type {
     my $self = shift (@_);
@@ -211 +212 @@
     
     my $section = $doc_obj->get_top_section ();
+
+    my $gsdlthistype = $doc_obj->get_metadata_element ($section, "gsdlthistype");
+    if (defined $gsdlthistype && $gsdlthistype eq "Paged") {
+    $thistype = "Paged";
+    $childtype = "Paged";
+    return ($thistype, $childtype);
+    }
+    
     my $first = 1;
     while (defined $section) {

trunk/gsdl/perllib/mgppbuildproc.pm

@@ -238 +238 @@
 # and each section at second level has a number for
 # Title metadata
+# also use Paged if gsdlthistype metadata is set to Paged
 sub get_document_type {
     my $self = shift (@_);
@@ -248 +249 @@
     
     my $section = $doc_obj->get_top_section ();
+    
+    my $gsdlthistype = $doc_obj->get_metadata_element ($section, "gsdlthistype");
+    if (defined $gsdlthistype && $gsdlthistype eq "Paged") {
+    $thistype = "Paged";
+    $childtype = "Paged";
+    return ($thistype, $childtype);
+    }
     my $first = 1;
     while (defined $section) {