Ignore:
Timestamp:
2018-10-11T19:31:44+13:00 (3 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:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/doc.pm

    r28575 r32512  
    540540            print STDERR "doc::set_OID could not write to $filename\n";
    541541        } else {
    542             my $doc_text = &docprint::get_section_xml($self, $self->get_top_section());
     542            my $doc_text = &docprint::get_section_xml($self);
    543543            print OUTFILE $doc_text;
    544544            close (OUTFILE);
     
    561561    if (!defined $OID)
    562562    {
    563     my $hash_text = &docprint::get_section_xml($self, $self->get_top_section());
     563    my $hash_text = &docprint::get_section_xml($self);
    564564    my $hash_len = length($hash_text);
    565565
Note: See TracChangeset for help on using the changeset viewer.