Changeset 19054 for gsdl/trunk/perllib/plugins/PagedImagePlugin.pm

Timestamp:

2009-04-19T19:31:40+12:00 (15 years ago)

Author:

davidb

Message:

MaxImageWidth and MaxImageHeight set as metadata

File:

• gsdl/trunk/perllib/plugins/PagedImagePlugin.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/PagedImagePlugin.pm

@@ -282 +282 @@
     print STDERR "<Processing n='$file' p='PagedImagePlugin'>\n" if ($gli);
     
+    $self->{'MaxImageWidth'} = 0;
+    $self->{'MaxImageHeight'} = 0;
     
     # here we need to decide if we have an old text .item file, or a new xml 
@@ -496 +498 @@
     
     # add numpages metadata
-    $doc_obj->set_utf8_metadata_element ($doc_obj->get_top_section(), 'NumPages', $self->{'num_pages'});
-
+    my $topsection = $doc_obj->get_top_section();
+
+    $doc_obj->set_utf8_metadata_element ($topsection, 'NumPages', $self->{'num_pages'});
+
+    $doc_obj->set_utf8_metadata_element($topsection,"MaxImageWidth",$self->{'MaxImageWidth'});
+    $doc_obj->set_utf8_metadata_element($topsection,"MaxImageHeight",$self->{'MaxImageHeight'});
+    $self->{'MaxImageWidth'} = undef;
+    $self->{'MaxImageHeight'} = undef;
     
 }
@@ -584 +592 @@
     # add numpages metadata
     $doc_obj->set_utf8_metadata_element ($topsection, 'NumPages', "$num");
+
+    $doc_obj->set_utf8_metadata_element($topsection,"MaxImageWidth",$self->{'MaxImageWidth'});
+    $doc_obj->set_utf8_metadata_element($topsection,"MaxImageHeight",$self->{'MaxImageHeight'});
+    $self->{'MaxImageWidth'} = undef;
+    $self->{'MaxImageHeight'} = undef;
+
+
     return $doc_obj;
 }