Changeset 8121 for trunk/gsdl/perllib/plugins/ConvertToPlug.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/ConvertToPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -363 +363 @@
     $doc_obj->associate_file($filename, "doc.$doc_ext", undef, $cursection);
 
+    my $file_type;
+
+    if ($doc_ext eq "doc") {
+        $file_type = "Word";
+    } elsif ($doc_ext eq "xls") {
+    $file_type = "Excel";
+    } elsif ($doc_ext eq "ppt") {
+    $file_type = "PPT"; 
+    } elsif ($doc_ext eq "pdf") {
+    $file_type = "PDF"; 
+    } elsif ($doc_ext eq "rtf") {
+    $file_type = "RTF";
+    }
+
+    my $file_format = $file_type || "unknown";
+    
+    $doc_obj->add_metadata($cursection, "FileFormat", $file_format);
+
     my $doclink = "<a href=\"_httpcollection_/index/assoc/[archivedir]/doc.$doc_ext\">";
     $doc_obj->add_utf8_metadata ($cursection, "srclink",  $doclink);