Changeset 8139
- Timestamp:
- 2004-09-23T11:10:56+12:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/PDFPlug.pm
r8121 r8139 217 217 $doc_obj->add_metadata($cursection, "FileFormat", "PDF"); 218 218 219 # Add NumPages metadata (we have "<a name=1>" etc for each page) 220 my $textref = $_[0]; 221 my @pages = ($$textref =~ /\<a name=\d+\>/ig); 222 $doc_obj->add_utf8_metadata($cursection, "NumPages", scalar(@pages)); 223 219 224 return $result; 220 225 }
Note:
See TracChangeset
for help on using the changeset viewer.