Changeset 16997

Timestamp:

2008-08-25T16:01:32+12:00 (16 years ago)

Author:

ak19

Message:

Multilingual filehandling in subroutine extra_metadata

File:

• gsdl/trunk/perllib/plugins/BasePlugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/BasePlugin.pm

@@ -796 +796 @@
     $doc_obj->add_utf8_metadata($top_section, "FileSize", (-s $filename_full_path));
  
+    # sets the UTF8 filename (Source) for display and sets the url ref to URL encoded version
+    # of the UTF8 filename (SourceFile) for generated files
     $self->set_Source_metadata($doc_obj, $filename_no_path);
 
@@ -992 +994 @@
         foreach my $gaf (@{$metadata->{$field}}) {
         my ($full_filename,$mimetype) = ($gaf =~ m/^(.*):(.*):$/);
-        my ($tail_filename) = ($full_filename =~ /^.*[\/\\](.+?)$/);
+        #my ($tail_filename) = ($full_filename =~ /^.*[\/\\](.+?)$/);
+        my $tail_filename = $doc_obj->get_assocfile_from_sourcefile(); 
         my $filename = $full_filename;
         $doc_obj->associate_file($full_filename,$tail_filename,$mimetype);