Changeset 23824 for main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

Timestamp:

2011-03-28T10:41:58+13:00 (13 years ago)

Author:

sjm84

Message:

Phase one of commiting the files changed to extend the DSpace exporting capabilities to include more than just dublin core metadata

File:

• main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm (modified) (2 diffs)

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

@@ -368 +368 @@
     my ($handle,$docroot,$nondoctype) = @_;
     
-    print $handle '<?xml version="1.0" encoding="UTF-8" standalone="no"?>' . "\n";
+    
+    #print $handle '<?xml version="1.0" encoding="UTF-8" standalone="no"?>' . "\n";
+    
+    #For Dspace must be UTF in lower case
+    print $handle '<?xml version="1.0" encoding="utf-8" standalone="no"?>' . "\n";
    
     if (!defined $nondoctype){
@@ -386 +390 @@
     print $handle "</$docroot>\n" if defined $docroot;
 }
+
+
+sub output_general_xml_header 
+{
+    my $self = shift (@_);
+    my ($handle,$docroot,$opt_attributes,$opt_dtd, $opt_doctype) = @_;
+    
+    print $handle '<?xml version="1.0" encoding="utf-8" standalone="no"?>' . "\n";
+   
+    if (defined $opt_dtd) {
+        my $doctype = (defined $opt_doctype) ? $opt_doctype : $docroot;
+    print $handle "<!DOCTYPE $doctype SYSTEM \"$opt_dtd\">\n";
+    }
+
+    if (defined $docroot) {
+        my $full_docroot = $docroot;
+        if (defined $opt_attributes) {
+          $full_docroot .= " $opt_attributes";
+        }
+
+        print $handle "<$full_docroot>\n" 
+      }
+}
+
+sub output_general_xml_footer 
+{
+    output_xml_footer(@_);
+}
+
 
 sub process {