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

(-)a/C4/HTML5Media.pm (-2 / +6 lines)
Lines 111-117 sub gethtml5media { Link Here
111
        # extension
111
        # extension
112
        # check uploaded files
112
        # check uploaded files
113
        if ( $HTML5Media{srcblock} =~ /\Qopac-retrieve-file.pl\E/ ) {
113
        if ( $HTML5Media{srcblock} =~ /\Qopac-retrieve-file.pl\E/ ) {
114
            $HTML5Media{extension} = (Koha::Upload->new->get({ hashvalue => (split(/id=/, $HTML5Media{srcblock}))[1] })->{name} =~ m/([^.]+)$/)[0];
114
            my ( undef, $id ) = split /id=/, $HTML5Media{srcblock};
115
            next if !$id;
116
            my $public = ( ( caller )[1] =~ /opac/ ) ? { public => 1 }: {};
117
            my $upl = Koha::Upload->new( $public )->get({ hashvalue => $id });
118
            next if !$upl || $upl->{name} !~ /\./;
119
            $HTML5Media{extension} = ( $upl->{name} =~ m/([^.]+)$/ )[0];
115
        }
120
        }
116
        # check remote files
121
        # check remote files
117
        else {
122
        else {
118
- 

Return to bug 15225