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

(-)a/C4/HTML5Media.pm (-4 / +10 lines)
Lines 1-6 Link Here
1
package C4::HTML5Media;
1
package C4::HTML5Media;
2
2
3
# Copyright 2012 Mirko Tietgen
3
# Copyright 2012/2015 Mirko Tietgen
4
#
4
#
5
# This file is part of Koha.
5
# This file is part of Koha.
6
#
6
#
Lines 22-28 use warnings; Link Here
22
22
23
use C4::Context;
23
use C4::Context;
24
use MARC::Field;
24
use MARC::Field;
25
25
use Koha::Upload;
26
26
27
=head1 HTML5Media
27
=head1 HTML5Media
28
28
Lines 109-115 sub gethtml5media { Link Here
109
            next; # no file to play
109
            next; # no file to play
110
        }
110
        }
111
        # extension
111
        # extension
112
        $HTML5Media{extension} = ($HTML5Media{srcblock} =~ m/([^.]+)$/)[0];
112
        # check uploaded files
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];
115
        }
116
        # check remote files
117
        else {
118
            $HTML5Media{extension} = ($HTML5Media{srcblock} =~ m/([^.]+)$/)[0];
119
        }
113
        if ( !grep /\Q$HTML5Media{extension}\E/, @HTML5MediaExtensions ) {
120
        if ( !grep /\Q$HTML5Media{extension}\E/, @HTML5MediaExtensions ) {
114
            next; # not a specified media file
121
            next; # not a specified media file
115
        }
122
        }
116
- 

Return to bug 15225