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