View | Details | Raw Unified | Return to bug 19318
Collapse All | Expand All

(-)a/Koha/Uploader.pm (-1 / +2 lines)
Lines 67-72 use CGI; # no utf8 flag, since it may interfere with binary uploads Link Here
67
use Digest::MD5;
67
use Digest::MD5;
68
use Encode;
68
use Encode;
69
use Time::HiRes;
69
use Time::HiRes;
70
use Unicode::Normalize;
70
71
71
use base qw(Class::Accessor);
72
use base qw(Class::Accessor);
72
73
Lines 249-254 sub _create_file { Link Here
249
sub _hook {
250
sub _hook {
250
    my ( $self, $filename, $buffer, $bytes_read, $data ) = @_;
251
    my ( $self, $filename, $buffer, $bytes_read, $data ) = @_;
251
    $filename= Encode::decode_utf8( $filename ); # UTF8 chars in filename
252
    $filename= Encode::decode_utf8( $filename ); # UTF8 chars in filename
253
    $filename = NFC($filename);
252
    $self->_compute( $filename, $buffer );
254
    $self->_compute( $filename, $buffer );
253
    my $fh = $self->_fh( $filename ) // $self->_create_file( $filename );
255
    my $fh = $self->_fh( $filename ) // $self->_create_file( $filename );
254
    print $fh $buffer if $fh;
256
    print $fh $buffer if $fh;
255
- 

Return to bug 19318