Changeset 8171

Timestamp:

2004-09-28T16:48:54+12:00 (20 years ago)

Author:

mdewsnip

Message:

FileFormat metadata for PostScript files should now be set correctly.

Location:

trunk/gsdl/perllib/plugins

Files:

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

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -377 +377 @@
     } elsif ($doc_ext eq "rtf") {
     $file_type = "RTF";
+    } elsif ($doc_ext eq "ps") {
+    $file_type = "PS";
     }
 

trunk/gsdl/perllib/plugins/PSPlug.pm

@@ -176 +176 @@
     
     &extract_metadata_from_postscript($self,"$path/$file", $doc);
-    #$doc->add_utf8_metadata($doc->get_top_section(), "PSPlug", 1);
-
-    #Add FileFormat metadata
-    $doc->add_metadata($doc->get_top_section(), "FileFormat", "PS");
-
 
     return ConvertToPlug::process_type($self,"ps",@_);