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 |
- |
|
|