Changeset 9465 for trunk/gsdl/perllib/plugins/ConvertToPlug.pm

Timestamp:

2005-03-18T14:10:58+13:00 (19 years ago)

Author:

kjdon

Message:

ConvertToPlug now accepts the gli arg in read() and passes it in process(), and all the convert plugins now print a processing message for gli in their process() method.

File:

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

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -267 +267 @@
 sub read {
     my $self = shift (@_);
-    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
+    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $gli) = @_;
 #    if ($self->is_recursive()) {
 #        die "BasPlug::read function must be implemented in sub-class for recursive plugins\n";
@@ -337 +337 @@
     $self->extra_metadata ($doc_obj, $doc_obj->get_top_section(), $metadata);
     # do plugin specific processing of doc_obj
-    return -1 unless defined ($self->process (\$text, $pluginfo, $base_dir, $file, $metadata, $doc_obj));
+    return -1 unless defined ($self->process (\$text, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli ));
     # do any automatic metadata extraction
     $self->auto_extract_metadata ($doc_obj);