Changeset 9352

Timestamp:

2005-03-10T11:57:53+13:00 (19 years ago)

Author:

davidb

Message:

Processing lines for OAIPlug were not appearing in GLI (librarian mode).
This is because it don't "process" the files in the traditional manner
-> instead it passes the metadata on to a source document. Extra print
statement added if $gli=1 to generate message for GLI at the point that
it says its passing on the extracted metadata to ...

File:

• trunk/gsdl/perllib/plugins/OAIPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/OAIPlug.pm

@@ -79 +79 @@
     my $self = shift (@_);  
   
-    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
+    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $gli) = @_;
 
     my $outhandle = $self->{'outhandle'};
@@ -114 +114 @@
     }
 
+    print STDERR "<Processing n='$file' p='OAIPlug'>\n" if ($gli);
     print $outhandle "OAIPlug: extracting metadata from $file\n"
     if ($self->{'verbosity'}>1);