Changeset 8350

Timestamp:

2004-10-18T10:15:17+13:00 (20 years ago)

Author:

kjdon

Message:

assign the fall back title after processing any other metadata, so that this is not added if we already have Title metadata

File:

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

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -191 +191 @@
     $doc_obj->add_metadata ($section, "Source", $url);
 
-    $self->title_fallback($doc_obj,$section,$file);
-
     my ($image_type, $image_width, $image_height, $image_size) 
     = &identify($filename, $outhandle, $verbosity);
@@ -406 +404 @@
     $self->auto_extract_metadata ($doc_obj);
 
+    # if we haven't found any Title so far, assign one
+    # this was shifted to here from inside read()
+    $self->title_fallback($doc_obj,$section,$file);
     # add an OID
     $doc_obj->set_OID();