1 package Koha::Template::Plugin::Asset;
3 # Copyright 2018 BibLibre
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 Koha::Template::Plugin::Asset
26 The Asset plugin is a helper that generates HTML tags for JS and CSS files
32 [% Asset.css("css/datatables.css") %]
33 [% Asset.js("js/datatables.js") %]
35 [%# With attributes %]
36 [% Asset.css("css/print.css", { media = "print" }) %]
38 [%# If you only want the url and not the HTML tag %]
39 [% url = Asset.url("css/datatables.css") %]
46 use base qw( Template::Plugin );
48 use File::Basename qw( fileparse );
57 Constructor. Do not use this directly.
62 my ($class, $context) = @_;
68 return bless $self, $class;
73 Returns a <script> tag for the given JS file
75 [% Asset.js('js/datatables.js') %]
80 my ( $self, $filename, $attributes ) = @_;
82 my $url = $self->url($filename);
84 warn "File not found : $filename";
88 $attributes->{src} = $url;
90 return $self->_tag('script', $attributes) . '</script>';
95 Returns a <link> tag for the given CSS file
97 [% Asset.css('css/datatables.css') %]
98 [% Asset.css('css/print.css', { media = "print" }) %]
103 my ( $self, $filename, $attributes ) = @_;
105 my $url = $self->url($filename);
107 warn "File not found : $filename";
111 $attributes->{rel} = 'stylesheet';
112 $attributes->{type} = 'text/css';
113 $attributes->{href} = $url;
115 return $self->_tag('link', $attributes);
120 Returns the URL for the given file
122 [% Asset.url('css/datatables.css') %]
127 my ( $self, $filename ) = @_;
129 my $stash = $self->{_CONTEXT}->stash();
130 my $interface = $stash->get('interface');
131 my $theme = $stash->get('theme');
133 my $configkey = $interface =~ /opac/ ? 'opachtdocs' : 'intrahtdocs';
134 my $root = C4::Context->config($configkey);
136 my ($basename, $dirname, $suffix) = fileparse($filename, qr/\.[^.]*/);
138 my $type = substr $suffix, 1;
144 my $version = Koha::version;
145 $version =~ s/([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/$1.$2$3$4/;
146 foreach my $dir (@dirs) {
147 my $abspath = File::Spec->catfile($root, $dir, $filename);
149 return File::Spec->catfile($interface, $dir, $dirname, "${basename}_${version}${suffix}");
156 Returns an HTML tag with given name and attributes.
157 This shouldn't be used directly.
162 my ($self, $name, $attributes) = @_;
166 while (my ($key, $value) = each %$attributes) {
167 push @attributes_strs, qq{$key="$value"};
170 my $attributes_str = join ' ', @attributes_strs;
172 return "<$name $attributes_str>";