Changeset 32512 for main/trunk/greenstone2/perllib/doc.pm

Timestamp:

2018-10-11T19:31:44+13:00 (6 years ago)

Author:

ak19

Message:

Refactoring some existing perl code as per Dr Bainbridge's ideas on this, so that MySQLPlugout, which inherits from GreenstoneXMLPlugout, can be structured better for reading.

File:

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

main/trunk/greenstone2/perllib/doc.pm

@@ -540 +540 @@
             print STDERR "doc::set_OID could not write to $filename\n";
         } else {
-            my $doc_text = &docprint::get_section_xml($self, $self->get_top_section());
+            my $doc_text = &docprint::get_section_xml($self);
             print OUTFILE $doc_text;
             close (OUTFILE);
@@ -561 +561 @@
     if (!defined $OID) 
     {
-    my $hash_text = &docprint::get_section_xml($self, $self->get_top_section());
+    my $hash_text = &docprint::get_section_xml($self);
     my $hash_len = length($hash_text);