Changeset 1044

Timestamp:

2000-03-22T13:59:40+12:00 (24 years ago)

Author:

nzdl

Message:

don't output doctype field to gdbm if document already has metadata called
doctype

File:

• trunk/gsdl/perllib/mgbuildproc.pm (modified) (1 diff)

trunk/gsdl/perllib/mgbuildproc.pm

@@ -239 +239 @@
     else { print $handle "[$doc_OID.$section]\n"; }
 
-    # output the fact that this document is a document
-    print $handle "<doctype>doc\n";
+    # output the fact that this document is a document (unless doctype
+    # has been set to something else from within a plugin
+    my $dtype = $doc_obj->get_metadata_element ($section, "doctype");
+    if (!defined $dtype || $dtype !~ /\w/) {
+        print $handle "<doctype>doc\n";
+    }
 
     # output whether this node contains text