Changeset 32543 for main/trunk/greenstone2/perllib/plugouts/GreenstoneXMLPlugout.pm

Timestamp:

2018-10-26T15:10:47+13:00 (5 years ago)

Author:

ak19

Message:

Tidying up and adjusting TODO statements

File:

• main/trunk/greenstone2/perllib/plugouts/GreenstoneXMLPlugout.pm (modified) (1 diff)

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

@@ -76 +76 @@
 }
 
-sub old_unused_saveas {
-    my $self = shift (@_);
-    my ($doc_obj, $doc_dir) = @_;
-    my $outhandler;
-    my $output_file;
-    if ($self->{'debug'}) {
-    $outhandler = STDOUT;
-    }
-    else {
-       
-    $self->process_assoc_files($doc_obj, $doc_dir, '');
-    $self->process_metafiles_metadata ($doc_obj);
-    
-    # open up the outhandler    
-    if ($self->is_group() && !$self->{'new_doc_dir'}) { 
-        # we already have a handle open ??
-        $outhandler = $self->{'group_outhandler'};
-    } else {
-        $output_file = &FileUtils::filenameConcatenate(
-        $self->{'output_dir'}, $doc_dir, $self->get_doc_xml_filename($doc_obj));
-        # open the new handle
-        $self->open_xslt_pipe($output_file, $self->{'xslt_file'});
-
-        if (defined $self->{'xslt_writer'}){
-        $outhandler = $self->{'xslt_writer'};
-        }
-        else{
-        $outhandler = $self->get_output_handler($output_file);
-        }
-        
-        if ($self->is_group()) {
-        $self->{'group_outhandler'} = $outhandler;
-        }
-    }
-    } # else not debug
-    binmode($outhandler,":utf8");
-
-    # only output the header if we have started a new doc
-    if (!$self->is_group() || $self->{'new_doc_dir'}) {
-    $self->output_xml_header($outhandler);
-    }
-
-    my $section_text = &docprint::get_section_xml($doc_obj);
-    print $outhandler $section_text;
- 
-    # only output the footer if we are not doing group stuff. The group file will be finished in close_group_output
-    if (!$self->is_group()) {
-    $self->output_xml_footer($outhandler);
-    }
-
-    # close off the output - in a group process situation, this will be done by close_group_output
-    if (!$self->is_group() && !$self->{'debug'}) {
-    if (defined $self->{'xslt_writer'}){     
-        $self->close_xslt_pipe(); 
-    }
-    else {
-        &FileUtils::closeFileHandle($output_file, \$outhandler) if defined $output_file;
-    }
-    }
-    $self->{'short_doc_file'} = &FileUtils::filenameConcatenate(
-    $doc_dir, $self->get_doc_xml_filename($doc_obj));  
-    
-    $self->store_output_info_reference($doc_obj);
-    
-}
-
 # can be overridden in subclasses, for instance by GreenstoneSQLPlugout, to produce a different filename
 # like docsql.xml