Changeset 16102 for gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm

Timestamp:

2008-06-23T10:54:24+12:00 (16 years ago)

Author:

davidb

Message:

Some minor adjustments to ingesting documents into a Fedoar repository: it now descends into all the folders generated in archives/export; and it tests for ImagePlugin (rather than the older ImagePlug) name;

File:

• gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm

@@ -201 +201 @@
 
     my $section = $doc_obj->get_top_section();
-
-    my $doc_txt_file = &util::filename_cat ($working_dir,"doctoc.xml"); 
-    
-    $self->open_xslt_pipe($doc_txt_file,$self->{'xslt_txt'});
-
-    my $outhandler; 
-
-    if (defined $self->{'xslt_writer'}){
-    $outhandler = $self->{'xslt_writer'};
-    }
-    else{
-    $outhandler = $self->get_output_handler($doc_txt_file);
-    } 
-
-    print $outhandler $self->buffer_toc($doc_obj, $working_dir, $section, 0);
-
-    if (defined $self->{'xslt_writer'}){     
-    $self->close_xslt_pipe(); 
-    }
-    else{
-    close($outhandler);
-   } 
+    my $section_ptr=$doc_obj->_lookup_section($section);
+    my $num_subsections = scalar(@{$section_ptr->{'subsection_order'}});
+
+    # If num_subsections is 0, then there is no nested TOC
+
+    if ($num_subsections>0) {
+
+    my $doc_txt_file = &util::filename_cat ($working_dir,"doctoc.xml");
+    
+    $self->open_xslt_pipe($doc_txt_file,$self->{'xslt_txt'});
+    
+    my $outhandler; 
+    
+    if (defined $self->{'xslt_writer'}){
+        $outhandler = $self->{'xslt_writer'};
+    }
+    else{
+        $outhandler = $self->get_output_handler($doc_txt_file);
+    } 
+    print $outhandler $self->buffer_toc($doc_obj, $working_dir, $section, 0);
+    
+    if (defined $self->{'xslt_writer'}){     
+        $self->close_xslt_pipe(); 
+    }
+    else{
+        close($outhandler);
+    } 
+    }
 
 }
@@ -245 +251 @@
     my $plugin_type = $doc_obj->get_metadata_element($top_section,"Plugin");
 
-    if ((defined $plugin_type) && ($plugin_type eq "ImagePlug"))
+    if ((defined $plugin_type) && ($plugin_type eq "ImagePlugin"))
     {
 
@@ -284 +290 @@
 
     # Generate Filestream for Table of Contents (TOC)
-    print $handle $self->buffer_mets_fileSection_toc($doc_obj,$section,$working_dir);
+    my $section_ptr=$doc_obj->_lookup_section($section);
+    my $num_subsections = scalar(@{$section_ptr->{'subsection_order'}});
+
+    # If num_subsections is 0, then there is no nested TOC
+
+    if ($num_subsections>0) {
+    print $handle $self->buffer_mets_fileSection_toc($doc_obj,$section,$working_dir);
+    }
 
     # print out the fileSection by sections