Changeset 17055

Timestamp:

2008-08-28T13:19:41+12:00 (16 years ago)

Author:

kjdon

Message:

in buffer_txt_section_xml need to pass the is_recursive flag when calling itself again - no subsections were getting output for greenstoneMets

File:

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

gsdl/trunk/perllib/plugouts/METSPlugout.pm

@@ -198 +198 @@
     print $handle '           xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' . "\n";
     print $handle '           xmlns:gsdl3="http://www.greenstone.org/namespace/gsdlmetadata/1.0/"' . "\n";
-    if ($ENV{'FEDORA_VERSION'} =~ m/^2/) { # checking if major version is 2
+    if (defined ($ENV{'FEDORA_VERSION'}) &&  $ENV{'FEDORA_VERSION'} =~ m/^2/) { # checking if major version is 2
         print $handle '           xmlns:xlink="http://www.w3.org/TR/xlink"' ."\n";
     }
@@ -244 +244 @@
     # Output all the subsections
     foreach my $subsection (@{$section_ptr->{'subsection_order'}}){
-        $all_text .= $self->buffer_txt_section_xml($doc_obj, "$section.$subsection");
+        $all_text .= $self->buffer_txt_section_xml($doc_obj, "$section.$subsection", $is_recursive);
     }
     }