Changeset 37148 for main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm

Timestamp:

2023-01-17T11:48:36+13:00 (15 months ago)

Author:

davidb

Message:

Had not been careful enough with my refactoring of the code that creates a new doc_obj. For the XML case it needs to also set $self->{'doc_obj'}.

File:

• main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm (modified) (1 diff)

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

@@ -576 +576 @@
 
     # create a new document
-    my $doc_obj = $self->init_new_doc_item($self->{'filename'}, $self->{'processor'}, $self->{'metadata'});
+    $self->{'doc_obj'} = $self->init_new_doc_item($self->{'filename'}, $self->{'processor'}, $self->{'metadata'});
     
     my ($dir, $file) = $self->{'filename'} =~ /^(.*?)([^\/\\]*)$/;