Changeset 22818

Timestamp:

2010-08-31T14:11:21+12:00 (14 years ago)

Author:

davidb

Message:

Tightening up (slightly) of DOCTYPE line. Previously, it was quite easy for the root name printed in the DOCTYPE line (which was hard-wired to 'Archive') to not match the root element used. Changed to something that is more consistent, but could still be better.

File:

• main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -371 +371 @@
    
     if (!defined $nondoctype){
-    print $handle '<!DOCTYPE Archive SYSTEM "http://greenstone.org/dtd/Archive/1.0/Archive.dtd">' . "\n";
+    my $doctype = (defined $docroot) ? $docroot : "Section";
+
+    # Used to be '<!DOCTYPE Archive SYSTEM ...'
+    
+    print $handle "<!DOCTYPE $doctype SYSTEM \"http://greenstone.org/dtd/Archive/1.0/Archive.dtd\">\n";
     }