Changeset 10254 for trunk/gsdl/perllib/plugins/ProCitePlug.pm

Timestamp:

2005-07-19T16:27:51+12:00 (19 years ago)

Author:

kjdon

Message:

added 'use strict' to all plugins, and made modifications (mostly adding 'my') to make them compile

File:

• trunk/gsdl/perllib/plugins/ProCitePlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/ProCitePlug.pm

@@ -31 +31 @@
 use SplitPlug;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
 
 # ProCitePlug is a sub-class of SplitPlug
 sub BEGIN {
-    @ISA = ('SplitPlug');
+    @ProCitePlug::ISA = ('SplitPlug');
 }
 
@@ -158 +160 @@
     my $outhandle = $self->{'outhandle'};
     my $filename = &util::filename_cat($base_dir, $file);
-
+    my $cursection = $doc_obj->get_top_section();
     # Report that we're processing the file
     print STDERR "<Processing n='$file' p='ProCitePlug'>\n" if ($gli);
@@ -216 +218 @@
 
         # Multiple metadata values are separated with "//"
-        foreach $field_value (split(/\/\//, $field_value_raw)) {
+        foreach my $field_value (split(/\/\//, $field_value_raw)) {
         my $meta_name = "pc.Field" . ($fieldnum + 1) . "Value";
         $doc_obj->add_utf8_metadata($cursection, $meta_name, $field_value);