Changeset 17055

Show
Ignore:
Timestamp:
28.08.2008 13:19:41 (11 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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugouts/METSPlugout.pm

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