|
Lines 86-92
sub js {
Link Here
|
| 86 |
|
86 |
|
| 87 |
$attributes->{src} = $url; |
87 |
$attributes->{src} = $url; |
| 88 |
|
88 |
|
| 89 |
return $self->tag('script', $attributes) . '</script>'; |
89 |
return $self->_tag('script', $attributes) . '</script>'; |
| 90 |
} |
90 |
} |
| 91 |
|
91 |
|
| 92 |
=head2 css |
92 |
=head2 css |
|
Lines 111-117
sub css {
Link Here
|
| 111 |
$attributes->{type} = 'text/css'; |
111 |
$attributes->{type} = 'text/css'; |
| 112 |
$attributes->{href} = $url; |
112 |
$attributes->{href} = $url; |
| 113 |
|
113 |
|
| 114 |
return $self->tag('link', $attributes); |
114 |
return $self->_tag('link', $attributes); |
| 115 |
} |
115 |
} |
| 116 |
|
116 |
|
| 117 |
=head2 url |
117 |
=head2 url |
|
Lines 149-164
sub url {
Link Here
|
| 149 |
} |
149 |
} |
| 150 |
} |
150 |
} |
| 151 |
|
151 |
|
| 152 |
=head2 tag |
152 |
=head2 _tag |
| 153 |
|
153 |
|
| 154 |
Returns an HTML tag with given name and attributes. |
154 |
Returns an HTML tag with given name and attributes. |
| 155 |
This shouldn't be used directly. |
155 |
This shouldn't be used directly. |
| 156 |
|
156 |
|
| 157 |
[% Asset.tag("script", { src = "/koha-tmpl/intranet-tmpl/prog/css/datatables.css" }) %] |
|
|
| 158 |
|
| 159 |
=cut |
157 |
=cut |
| 160 |
|
158 |
|
| 161 |
sub tag { |
159 |
sub _tag { |
| 162 |
my ($self, $name, $attributes) = @_; |
160 |
my ($self, $name, $attributes) = @_; |
| 163 |
|
161 |
|
| 164 |
my @attributes_strs; |
162 |
my @attributes_strs; |
| 165 |
- |
|
|