Changeset 10344

Timestamp:

2005-07-28T16:15:19+12:00 (19 years ago)

Author:

kjdon

Message:

if there was no Title, add PageNum as a Title

File:

• trunk/gsdl/perllib/plugins/PagedImgPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -247 +247 @@
     return q^(?i)(\.jpe?g|\.gif|\.png|\.tif?f|\.te?xt|~)$^
 }
+
 # Create the thumbnail and screenview images, and discover the Image's
 # size, width, and height using the convert utility.
@@ -734 +735 @@
     my $doc_obj = $self->{'doc_obj'};
     if ($element eq "Page" || $element eq "PageGroup") {
+    # if Title hasn't been assigned, set PageNum as Title
+    if (!defined $doc_obj->get_metadata_element ($self->{'current_section'}, "Title") && defined $doc_obj->get_metadata_element ($self->{'current_section'}, "PageNum" )) {
+        $doc_obj->add_utf8_metadata ($self->{'current_section'}, "Title", $doc_obj->get_metadata_element ($self->{'current_section'}, "PageNum" ));
+    }
     # move the current section back to the parent
     $self->{'current_section'} = $doc_obj->get_parent_section($self->{'current_section'});