Changeset 13172 for trunk/gsdl/perllib/plugouts/METSPlugout.pm

Timestamp:

2006-10-27T13:41:01+13:00 (18 years ago)

Author:

kjdon

Message:

Moved all printing stuff out of doc.pm.
docprint now prints a GA representation of a doc obj - use &docprint::get_section_xml instead of $doc_obj->buffer_section_xml or $doc_obj->output_section.
Most of the code has been moved into plugouts, except for the bit thats gone to docprint.pm.

File:

• trunk/gsdl/perllib/plugouts/METSPlugout.pm (modified) (5 diffs)

trunk/gsdl/perllib/plugouts/METSPlugout.pm

@@ -32 +32 @@
 use util;
 use BasPlugout;
+use docprint; # for escape_text
 
 sub BEGIN {
@@ -218 +219 @@
    
     my $all_text = "<Section>\n";
-    $all_text .= $doc_obj->_escape_text("$section_ptr->{'text'}");
+    $all_text .= &docprint::escape_text("$section_ptr->{'text'}");
    
     #output all the subsections
@@ -326 +327 @@
     $all_text .= "  <oai_dc:dc $dc_namespace>\n";
 
-    $all_text .= $doc_obj->buffer_dc_section($section,"oai_dc");
+    $all_text .= $self->get_dc_metadata($doc_obj, $section,"oai_dc");
     $all_text .= "  </oai_dc:dc>\n";
     }
     else {
     foreach my $data (@{$section_ptr->{'metadata'}}){
-        my $escaped_value = $doc_obj->_escape_text($data->[1]);
+        my $escaped_value = &docprint::escape_text($data->[1]);
         $all_text .= '      <gsdl3:Metadata name="'. $data->[0].'">'. $escaped_value. "</gsdl3:Metadata>\n";
         if ($data->[0] eq "dc.Title") {
@@ -420 +421 @@
 
     foreach my $data (@{$section_ptr->{'metadata'}}){
-       my $escaped_value = $doc_obj->_escape_text($data->[1]);
+       my $escaped_value = &docprint::escape_text($data->[1]);
    
        if ($data->[0] eq "gsdlsourcefilename") { 
@@ -513 +514 @@
 
     foreach my $data (@{$section_ptr->{'metadata'}}){
-       my $escaped_value = $doc_obj->_escape_text($data->[1]);
+       my $escaped_value = &docprint::escape_text($data->[1]);
 
        if (($data->[0] eq "gsdlsourcefilename") && ($version ne "fedora")) {