Changeset 23472 for main/trunk/greenstone2/perllib/plugins

Timestamp:

2010-12-14T11:16:19+13:00 (13 years ago)

Author:

ak19

Message:

Erroneous forth argument (a filename) left over from an earlier time, was now being picked up as the *new* 4th parameter (which should have been a $section). Now fixed.

File:

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

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

@@ -1059 +1059 @@
     my $plugin_filename_encoding = $self->{'filename_encoding'};
     my $filename_encoding = $self->deduce_filename_encoding($file,$metadata,$plugin_filename_encoding);
-    $self->set_Source_metadata($doc_obj,$filename_full_path,$filename_encoding,$filename_full_path);
+    $self->set_Source_metadata($doc_obj,$filename_full_path,$filename_encoding,$top_section);
 
     # plugin specific stuff - what args do we need here??