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

trunk/gsdl/perllib/plugins/ArcPlug.pm

@@ -38 +38 @@
 use gsprintf;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
+
 BEGIN {
     @ArcPlug::ISA = ('BasPlug');
 }
+
+my $arguments = [
+         ];
 
 my $options = { 'name'     => "ArcPlug",
@@ -46 +52 @@
         'abstract' => "no",
         'inherits' => "yes" };
-
+         
 sub gsprintf
 {
@@ -57 +63 @@
     push(@$pluginlist, $class);
 
-    if(defined $arguments){print "SETSEGE\n"; push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
+    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
     if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
 
@@ -79 +85 @@
     foreach my $subfile (@$file_list) {
         my $doc_oid = $subfile->[1];
-        $index_status = $archive_info->get_status_info($doc_oid);
+        # why do we get this when it is not used???
+        my $index_status = $archive_info->get_status_info($doc_oid);
         $archive_info->set_status_info($doc_oid,"B");
     }
@@ -133 +140 @@
         my $doc_oid = $subfile->[1];
 
-        $index_status = $archive_info->get_status_info($doc_oid);
+        my $index_status = $archive_info->get_status_info($doc_oid);
 
         my $processor_mode = $processor->get_mode();