Changeset 23753 for main/trunk/greenstone2/perllib/plugins/GreenstoneXMLPlugin.pm

Timestamp:

2011-03-02T15:57:14+13:00 (13 years ago)

Author:

davidb

Message:

Tidied up on 'book-keeping' information used by this plugin, now that it is used in the import folder (and not just the archives folder) as a result of generalized exploding being used in a collection

File:

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

main/trunk/greenstone2/perllib/plugins/GreenstoneXMLPlugin.pm

@@ -204 +204 @@
     # text read in by XML::Parser is in Perl's binary byte value
     # form ... need to explicitly make it UTF-8
+
 
     my $metadata_name = decode("utf-8",$self->{'metadata_name'});
@@ -340 +341 @@
     # process the document
     $self->{'processor'}->process($self->{'doc_obj'}, $self->{'file'});
+
+    $self->{'num_processed'} ++;
+    undef $self->{'doc_obj'};
 }