Changeset 10254 for trunk/gsdl/perllib/plugins/ISISPlug.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/ISISPlug.pm (modified) (6 diffs)

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -31 +31 @@
 use SplitPlug;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
 
 # ISISPlug is a sub-class of SplitPlug.
 sub BEGIN {
-    @ISA = ('SplitPlug');
+    @ISISPlug::ISA = ('SplitPlug');
 }
 
@@ -155 +157 @@
     my $outhandle = $self->{'outhandle'};
 
+    my $cursection = $doc_obj->get_top_section();
     my $subfield_separator = $self->{'subfield_separator'};
     my $entry_separator = $self->{'entry_separator'};
@@ -164 +167 @@
 
     # Process each line of the ISIS record, one at a time
-    foreach $line (split(/\n/, $$textref)) {
+    foreach my $line (split(/\n/, $$textref)) {
     $line =~ /^tag=(.*) data=(.+)$/;
     my $rawtagname = $1;
@@ -173 +176 @@
     # Metadata field names: title case, then remove spaces
     my $tagname = "";
-    foreach $word (split(/\s+/, $rawtagname)) {
+    foreach my $word (split(/\s+/, $rawtagname)) {
         substr($word, 0, 1) =~ tr/a-z/A-Z/;
         $tagname .= $word;
@@ -183 +186 @@
     # Handle each piece of metadata ('%' separated)
     my $completetagvalue = "";
-    foreach $rawtagvalue (split(/%/, $rawtagdata)) {
+    foreach my $rawtagvalue (split(/%/, $rawtagdata)) {
         $completetagvalue .= $entry_separator unless ($completetagvalue eq "");
 
@@ -255 +258 @@
 
     my $amongstdefinitions = 0;
-    foreach $fdtfileline (<FDT_FILE>) {
+    foreach my $fdtfileline (<FDT_FILE>) {
     $fdtfileline =~ s/(\s*)$//;  # Remove any nasty spaces at the end of the lines