Changeset 1279 for branches/New_Config_Format-branch/gsdl/perllib/plugins/IndexPlug.pm

Timestamp:

2000-07-13T10:21:53+12:00 (24 years ago)

Author:

sjboddie

Message:

merged changes to trunk into New_Config_Format branch

File:

• branches/New_Config_Format-branch/gsdl/perllib/plugins/IndexPlug.pm (modified) (5 diffs)

branches/New_Config_Format-branch/gsdl/perllib/plugins/IndexPlug.pm

@@ -54 +54 @@
 use plugin;
 use BasPlug;
-use lang;
 use doc;
 use util;
@@ -63 +62 @@
 }
 
+use strict;
+
 sub new {
     my ($class) = @_;
-    $self = new BasPlug ();
+    my $self = new BasPlug ("IndexPlug", @_);
 
     return bless $self, $class;
@@ -76 +77 @@
     return 1;
 }
-
 
 # return number of files processed, undef if can't process
@@ -104 +104 @@
     # process each document
     my $count = 0;
-    foreach $docfile (keys (%$list)) {
+    foreach my $docfile (keys (%$list)) {
     last if ($maxdocs != -1 && $count >= $maxdocs);
     $metadata = {}; # at present we can do this as metadata
@@ -113 +113 @@
     # note that $list->{$docfile} is an array reference
     if ($docfile !~ /key:/i) {
+        my $i = 0;
         for ($i = 0; $i < scalar (@{$list->{$docfile}}); $i ++) {
         if ($list->{$docfile}->[$i] =~ /^<([^>]+)>(.+)$/) {