Changeset 8170

Timestamp:

2004-09-28T16:40:19+12:00 (20 years ago)

Author:

mdewsnip

Message:

Fixed some of the new FileFormat metadata so you only get one value (and not two or three) for those that go through ConvertToPlug.

Location:

trunk/gsdl/perllib/plugins

Files:

• ConvertToPlug.pm (modified) (1 diff)
• PDFPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -380 +380 @@
 
     my $file_format = $file_type || "unknown";
-    
-    $doc_obj->add_metadata($cursection, "FileFormat", $file_format);
+
+    # We use set instead of add here because we only want one value
+    $doc_obj->set_utf8_metadata_element($cursection, "FileFormat", $file_format);
 
     my $doclink = "<a href=\"_httpcollection_/index/assoc/[archivedir]/doc.$doc_ext\">";

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -213 +213 @@
     $doc_obj->add_utf8_metadata($cursection, "Date", "$1$2$3");
     }
-    
-    # Add FileFormat metadata
-    $doc_obj->add_metadata($cursection, "FileFormat", "PDF");
 
     # Add NumPages metadata (we have "<a name=1>" etc for each page)