Changeset 7287

Timestamp:

2004-05-06T17:28:54+12:00 (20 years ago)

Author:

mdewsnip

Message:

Now extracts date metadata from the output of pdftohtml 0.36 and converts it to Greenstone format. Hasn't been tested :-)

File:

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

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -221 +221 @@
     print $outhandle "PDFPlug: passing $_[3] on to $self->{'converted_to'}Plug\n"
     if $self->{'verbosity'} > 1;
-    
-    return ConvertToPlug::process_type($self,"pdf",@_);
+
+    # Extracted the date field from pdftohtml's output
+    $self->{'metadata_fields'} .= ",date";
+
+    my $result = ConvertToPlug::process_type($self,"pdf",@_);
+
+    # Convert all date metadata extracted by pdftohtml into Greenstone format
+    my $doc_obj = pop(@_);
+    foreach $datemeta (@{$doc_obj->get_metadata($cursection, "date")}) {
+    $doc_obj->delete_metadata($cursection, "date", $datemeta);
+
+    # We're just interested in the date bit, not the time
+    $datemeta =~ /(\d\d\d\d)-(\d\d)-(\d\d).*/;
+    $doc_obj->add_utf8_metadata($cursection, "Date", "$1$2$3");
+    }
+
+    return $result;
 }