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

(-)a/Koha/Uploader.pm (-1 / +1 lines)
Lines 264-269 sub _dir { Link Here
264
sub _hook {
264
sub _hook {
265
    my ( $self, $filename, $buffer, $bytes_read, $data ) = @_;
265
    my ( $self, $filename, $buffer, $bytes_read, $data ) = @_;
266
    $filename= Encode::decode_utf8( $filename ); # UTF8 chars in filename
266
    $filename= Encode::decode_utf8( $filename ); # UTF8 chars in filename
267
    $filename =~ s/[^A-Za-z0-9\-\.]//g;
267
    $self->_compute( $filename, $buffer );
268
    $self->_compute( $filename, $buffer );
268
    my $fh = $self->_fh( $filename ) // $self->_create_file( $filename );
269
    my $fh = $self->_fh( $filename ) // $self->_create_file( $filename );
269
    print $fh $buffer if $fh;
270
    print $fh $buffer if $fh;
270
- 

Return to bug 36818