Changeset 16952

Timestamp:

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

Author:

ak19

Message:

Associated file names are url-encoded

File:

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

gsdl/trunk/perllib/plugins/MP3Plugin.pm

@@ -171 +171 @@
     return 0 if ($file eq "" || $filename eq "");
 
-    # Add the file metadata
-    my $assoc_url = $file;
-#    $assoc_url =~ s/ /%20/g; # probably need to do more escaping than this!!
-    $assoc_url =~ s/ /_/g; # workaround for now
-    my $dst_file = $file;
-    $dst_file =~ s/ /_/g;
+    # Add the file metadata.
+    # $assoc_url will be the srcurl. Since it is URL encoded here, it will be
+    # able to cope with special characters--including spaces--in mp3 filenames.
+    # the assocfilename generated will be a URL encoded version of the utf8 filename
+    my $assoc_url = $doc_obj->get_sourcefile(); 
+    my $dst_file = $doc_obj->get_assocfile_from_sourcefile();
 
     # Add the file as an associated file ...