Changeset 16953

Timestamp:

2008-08-21T16:32:06+12:00 (16 years ago)

Author:

ak19

Message:

Associated file names are url-encoded

File:

• gsdl/trunk/perllib/plugins/UnknownPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/UnknownPlugin.pm

@@ -138 +138 @@
     my $assoc_field = $self->{'assoc_field'} || "unknown_file";
 
-    $doc_obj->associate_file($filename_full_path, $filename_no_path, $mime_type, $section);
+    # The assocfilename is the url-encoded version of the utf8 filename
+    my $assoc_file = $doc_object->get_assocfile_from_sourcefile();
+
+    $doc_obj->associate_file($filename_full_path, $assoc_file, $mime_type, $section);
     $doc_obj->add_metadata ($section, "FileFormat", $file_format);
     $doc_obj->add_metadata ($section, "MimeType", $mime_type);