Changeset 8139

Timestamp:

2004-09-23T11:10:56+12:00 (20 years ago)

Author:

mdewsnip

Message:

Now adds NumPages metadata.

File:

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

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -217 +217 @@
     $doc_obj->add_metadata($cursection, "FileFormat", "PDF");
 
+    # Add NumPages metadata (we have "<a name=1>" etc for each page)
+    my $textref = $_[0];
+    my @pages = ($$textref =~ /\<a name=\d+\>/ig);
+    $doc_obj->add_utf8_metadata($cursection, "NumPages", scalar(@pages));
+
     return $result;
 }