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

trunk/gsdl/perllib/plugins/FOXPlug.pm

@@ -40 +40 @@
 # use gb;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
+
 
 sub BEGIN {
-    @ISA = ('BasPlug');
-}
+    @FOXPlug::ISA = ('BasPlug');
+}
+
+my $arguments = [
+         ];
 
 my $options = { 'name'     => "FOXPlug",
@@ -149 +155 @@
 
     # open the dbt file if we need to
-    $dbtfullname = $fullname;
+    my $dbtfullname = $fullname;
     if ($fullname =~ /f$/) {
     $dbtfullname =~ s/f$/t/;
@@ -172 +178 @@
     my $record = [];
     
-    foreach $field (@{$dbf{'fieldinfo'}}) {
+    foreach my $field (@{$dbf{'fieldinfo'}}) {
         my $fieldvalue = "";
         
@@ -267 +273 @@
 
     # add each field
-    foreach $field (@$record) {
+    foreach my $field (@$record) {
     if (defined ($field->{'name'}) && defined ($field->{'value'})) {
         $doc_obj->add_utf8_text($section, "  <tr>\n");