Changeset 22818

Show
Ignore:
Timestamp:
31.08.2010 14:11:21 (9 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.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

    r22328 r22818  
    371371    
    372372    if (!defined $nondoctype){ 
    373     print $handle '<!DOCTYPE Archive SYSTEM "http://greenstone.org/dtd/Archive/1.0/Archive.dtd">' . "\n"; 
     373    my $doctype = (defined $docroot) ? $docroot : "Section"; 
     374 
     375    # Used to be '<!DOCTYPE Archive SYSTEM ...' 
     376     
     377    print $handle "<!DOCTYPE $doctype SYSTEM \"http://greenstone.org/dtd/Archive/1.0/Archive.dtd\">\n"; 
    374378    } 
    375379