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

Timestamp:

2018-10-23T17:27:36+13:00 (6 years ago)

Author:

ak19

Message:

GS SQL Plugout now writes its docobj contents (if any) and structure into docsql.xml instead of doc.xml

File:

• main/trunk/greenstone2/perllib/plugouts/GreenstoneXMLPlugout.pm (modified) (2 diffs)

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

@@ -134 +134 @@
     }
     }
-    $self->{'short_doc_file'} = &FileUtils::filenameConcatenate($doc_dir, "doc.xml");  
+    $self->{'short_doc_file'} = $self->get_short_doc_file($doc_dir); #&FileUtils::filenameConcatenate($doc_dir, "doc.xml");  
     
     $self->store_output_info_reference($doc_obj);
     
+}
+
+# can be overridden in subclasses, for instance by GreenstoneSQLPlugout, to produce a different filename
+# like docsql.xml
+sub get_short_doc_file {
+    my $self = shift (@_);
+    my ($doc_dir) = @_;
+    return &FileUtils::filenameConcatenate($doc_dir, "doc.xml");
+}
+
+# can be overridden in subclasses, for instance by GreenstoneSQLPlugout, to produce a different filename
+# like docsql.xml
+sub get_output_file {
+    my $self = shift (@_);
+    my ($doc_dir) = @_;
+    return &FileUtils::filenameConcatenate($self->{'output_dir'}, $doc_dir, "doc.xml");
 }
 
@@ -159 +175 @@
         $outhandler = $self->{'group_outhandler'};
     } else {
-        $output_file = &FileUtils::filenameConcatenate($self->{'output_dir'}, $doc_dir, "doc.xml");
+        $output_file = $self->get_output_file($doc_dir); #&FileUtils::filenameConcatenate($self->{'output_dir'}, $doc_dir, "doc.xml");
         # open the new handle
         $self->open_xslt_pipe($output_file, $self->{'xslt_file'});