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

(-)a/C4/HTML5Media.pm (-2 / +2 lines)
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
- 

Return to bug 14168