Changeset 9465 for trunk/gsdl/perllib/plugins/PDFPlug.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/PDFPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -140 +140 @@
 sub process {
     my $self = shift (@_);
+    #my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
+
     my $outhandle=$self->{'outhandle'};
 
@@ -208 +210 @@
     print $outhandle "PDFPlug: passing $_[3] on to $self->{'converted_to'}Plug\n"
     if $self->{'verbosity'} > 1;
+    print STDERR "<Processing n='$_[3]' p='PDFPlug'>\n" if ($_[6]);
 
     # tell htmlplug to extract these metadata fields from the HEAD META fields
@@ -214 +217 @@
     my $result = ConvertToPlug::process_type($self,"pdf",@_);
 
-    my $doc_obj = pop(@_);
-
+    #my $doc_obj = pop(@_);
+    my $doc_obj = $_[5];
     # fix up the extracted date metadata to be in Greenstone date format,
     # and fix the capitalisation of 'date'