Changeset 16997

Show
Ignore:
Timestamp:
25.08.2008 16:01:32 (11 years ago)
Author:
ak19
Message:

Multilingual filehandling in subroutine extra_metadata

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/BasePlugin.pm

    r16995 r16997  
    796796    $doc_obj->add_utf8_metadata($top_section, "FileSize", (-s $filename_full_path)); 
    797797  
     798    # sets the UTF8 filename (Source) for display and sets the url ref to URL encoded version 
     799    # of the UTF8 filename (SourceFile) for generated files 
    798800    $self->set_Source_metadata($doc_obj, $filename_no_path); 
    799801 
     
    992994        foreach my $gaf (@{$metadata->{$field}}) { 
    993995        my ($full_filename,$mimetype) = ($gaf =~ m/^(.*):(.*):$/); 
    994         my ($tail_filename) = ($full_filename =~ /^.*[\/\\](.+?)$/); 
     996        #my ($tail_filename) = ($full_filename =~ /^.*[\/\\](.+?)$/); 
     997        my $tail_filename = $doc_obj->get_assocfile_from_sourcefile();  
    995998        my $filename = $full_filename; 
    996999        $doc_obj->associate_file($full_filename,$tail_filename,$mimetype);