Changeset 8121 for trunk/gsdl/perllib/plugins/ImagePlug.pm

Timestamp:

2004-09-15T16:18:06+12:00 (20 years ago)

Author:

chi

Message:

Add the "FileFormat" metadata to each of the Plugins.

File:

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

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -152 +152 @@
     my $type = "unknown";
 
+
     if ($converttotype ne "" && $filename =~ m/$converttotype$/) {
 
@@ -179 +180 @@
 
     $self->title_fallback($doc_obj,$section,$file);
-    $doc_obj->add_metadata ($section, "FileFormat", $type);
 
     my ($image_type, $image_width, $image_height, $image_size) 
     = &identify($filename, $outhandle, $verbosity);
+
+    if ($image_type ne " ") {
+    $type = $image_type;
+    }
+    
+    $doc_obj->add_metadata ($section, "FileFormat", $type);
 
     $doc_obj->add_metadata ($section, "ImageType",   $image_type);
@@ -189 +195 @@
     $doc_obj->add_metadata ($section, "ImageSize",   $image_size);
 
-    
     $doc_obj->add_metadata ($section, "srclink", 
                 "<a href=_httpcollection_/index/assoc/[assocfilepath]/[Image]>");