Changeset 6332 for trunk/gsdl/perllib/plugins/RecPlug.pm

Timestamp:

2003-12-19T15:16:29+13:00 (20 years ago)

Author:

jmt12

Message:

When -gli argument is provided to calling script these modules will now output gli specific, non-language nor verbosity specific, messages

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -146 +146 @@
     if (!parsargv::parse(\@_,
              q^use_metadata_files^, \$self->{'use_metadata_files'},
-             q^show_progress^, \$self->{'show_progress'}, # Undocumented (for GLI)
              "allow_extra_options")) {
     print STDERR "\nRecPlug uses an incorrect option.\n";
@@ -192 +191 @@
 sub read {
     my $self = shift (@_);
-    my ($pluginfo, $base_dir, $file, $in_metadata, $processor, $maxdocs) = @_;
+    my ($pluginfo, $base_dir, $file, $in_metadata, $processor, $maxdocs, $gli) = @_;
     
     my $outhandle = $self->{'outhandle'};
@@ -232 +231 @@
     my (@dir, $subfile);
     my $count = 0;
+    
     print $outhandle "RecPlug: getting directory $dirname\n" if ($verbosity);
     
@@ -308 +308 @@
     # Recursively read each $subfile
     print $outhandle "RecPlug recurring: $subfile\n" if ($verbosity > 2);
-    print $outhandle "RecPlug - $subfile\n" if ($self->{'show_progress'});
 
     $count += &plugin::read ($pluginfo, $base_dir, 
                  &util::filename_cat($file, $subfile),
-                 $out_metadata, $processor, $maxdocs);
+                 $out_metadata, $processor, $maxdocs, $gli);
     }
     return $count;