Changeset 19054 for gsdl/trunk/perllib/plugins/PagedImagePlugin.pm
- Timestamp:
- 2009-04-19T19:31:40+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/PagedImagePlugin.pm
r18468 r19054 282 282 print STDERR "<Processing n='$file' p='PagedImagePlugin'>\n" if ($gli); 283 283 284 $self->{'MaxImageWidth'} = 0; 285 $self->{'MaxImageHeight'} = 0; 284 286 285 287 # here we need to decide if we have an old text .item file, or a new xml … … 496 498 497 499 # add numpages metadata 498 $doc_obj->set_utf8_metadata_element ($doc_obj->get_top_section(), 'NumPages', $self->{'num_pages'}); 499 500 my $topsection = $doc_obj->get_top_section(); 501 502 $doc_obj->set_utf8_metadata_element ($topsection, 'NumPages', $self->{'num_pages'}); 503 504 $doc_obj->set_utf8_metadata_element($topsection,"MaxImageWidth",$self->{'MaxImageWidth'}); 505 $doc_obj->set_utf8_metadata_element($topsection,"MaxImageHeight",$self->{'MaxImageHeight'}); 506 $self->{'MaxImageWidth'} = undef; 507 $self->{'MaxImageHeight'} = undef; 500 508 501 509 } … … 584 592 # add numpages metadata 585 593 $doc_obj->set_utf8_metadata_element ($topsection, 'NumPages', "$num"); 594 595 $doc_obj->set_utf8_metadata_element($topsection,"MaxImageWidth",$self->{'MaxImageWidth'}); 596 $doc_obj->set_utf8_metadata_element($topsection,"MaxImageHeight",$self->{'MaxImageHeight'}); 597 $self->{'MaxImageWidth'} = undef; 598 $self->{'MaxImageHeight'} = undef; 599 600 586 601 return $doc_obj; 587 602 }
Note:
See TracChangeset
for help on using the changeset viewer.