Changeset 8227 for trunk/gsdl/perllib/plugins/PDFPlug.pm

Timestamp:

2004-10-07T10:56:16+13:00 (20 years ago)

Author:

jrm21

Message:

all perl things should "use strict;" to catch errors!

$cursection was being used without being defined.

File:

• trunk/gsdl/perllib/plugins/PDFPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -23 +23 @@
 #
 ###########################################################################
+use strict;
+no strict 'refs'; # so we can use a var for filehandles (eg STDERR)
 
 package PDFPlug;
@@ -29 +31 @@
 use unicode;
 
-sub BEGIN {
-    @ISA = ('ConvertToPlug');
-}
+@PDFPlug::ISA = ('ConvertToPlug');
 
 my $arguments =
@@ -82 +82 @@
              "allow_extra_options")) {
 
-    local $self = new ConvertToPlug($class, @_, "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
+    my $self = new ConvertToPlug($class, @_);
     my $outhandle=$self->{'outhandle'};
     print $outhandle "\nIncorrect options passed to PDFPlug, check your collect.cfg configuration file\n";
@@ -213 +213 @@
     # fix up the extracted date metadata to be in Greenstone date format,
     # and fix the capitalisation of 'date'
-    foreach $datemeta (@{$doc_obj->get_metadata($cursection, "date")}) {
+    my $cursection = $doc_obj->get_top_section();
+
+    foreach my $datemeta (@{$doc_obj->get_metadata($cursection, "date")}) {
     $doc_obj->delete_metadata($cursection, "date", $datemeta);