Lines 23-29
use warnings;
Link Here
|
23 |
use C4::Context; |
23 |
use C4::Context; |
24 |
use MARC::Field; |
24 |
use MARC::Field; |
25 |
use Koha::Upload; |
25 |
use Koha::Upload; |
26 |
use WWW::YouTube::Download qw(playback_url); |
|
|
27 |
|
26 |
|
28 |
=head1 HTML5Media |
27 |
=head1 HTML5Media |
29 |
|
28 |
|
Lines 101-106
sub gethtml5media {
Link Here
|
101 |
$HTML5Media{srcblock} = $HTML5Media_field->subfield('u'); |
100 |
$HTML5Media{srcblock} = $HTML5Media_field->subfield('u'); |
102 |
if (grep /youtube/, $HTML5Media_field->subfield('u') ) { # TODO is there an official YT URL shortener? Can we use that too? |
101 |
if (grep /youtube/, $HTML5Media_field->subfield('u') ) { # TODO is there an official YT URL shortener? Can we use that too? |
103 |
if ($HTML5MediaYouTube == 1) { |
102 |
if ($HTML5MediaYouTube == 1) { |
|
|
103 |
require WWW::YouTube::Download; |
104 |
import WWW::YouTube::Download qw(playback_url); |
104 |
my $youtube = WWW::YouTube::Download->new; |
105 |
my $youtube = WWW::YouTube::Download->new; |
105 |
$HTML5Media{srcblock} = $youtube->playback_url( |
106 |
$HTML5Media{srcblock} = $youtube->playback_url( |
106 |
$HTML5Media_field->subfield('u'), { |
107 |
$HTML5Media_field->subfield('u'), { |
107 |
- |
|
|