Changeset 8226

Timestamp:

2004-10-07T10:33:25+13:00 (20 years ago)

Author:

jrm21

Message:

tell HTMLPlug to extract the author metadata, and rename it to Creator.

File:

• trunk/gsdl/perllib/plugins/PDFPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -204 +204 @@
     if $self->{'verbosity'} > 1;
 
-    # Extracted the date field from pdftohtml's output
-    $self->{'metadata_fields'} .= ",date";
+    # tell htmlplug to extract these metadata fields from the HEAD META fields
+    $self->{'metadata_fields'} .= ",date,author<Creator>";
 
     my $result = ConvertToPlug::process_type($self,"pdf",@_);
 
-    # Convert all date metadata extracted by pdftohtml into Greenstone format
     my $doc_obj = pop(@_);
+
+    # fix up the extracted date metadata to be in Greenstone date format,
+    # and fix the capitalisation of 'date'
     foreach $datemeta (@{$doc_obj->get_metadata($cursection, "date")}) {
     $doc_obj->delete_metadata($cursection, "date", $datemeta);