Attachment #87821 for bug #22451

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




use File::Basename;
use File::Spec;
use C4::Context;
use Koha;

=head1 FUNCTIONS


        ".",
    );

    my $version = Koha::version;
    $version =~ s/([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/$1.$2$3$4/;
    foreach my $dir (@dirs) {
        my $abspath = File::Spec->catfile($root, $dir, $filename);
        if (-e $abspath) {
- 

Return to bug 22451

Lines 48-53 use base qw( Template::Plugin ); Link Here

(-)a/Koha/Template/Plugin/Asset.pm (-2 / +3 lines)
48	use File::Basename;	48	use File::Basename;
49	use File::Spec;	49	use File::Spec;
50	use C4::Context;	50	use C4::Context;
		51	use Koha;
51		52
52	=head1 FUNCTIONS	53	=head1 FUNCTIONS
53		54
Lines 140-146 sub url { Link Here
140	".",	141	".",
141	);	142	);
142		143
143	my $version = C4::Context->preference('Version');	144	my $version = Koha::version;
		145	$version =~ s/([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/$1.$2$3$4/;
144	foreach my $dir (@dirs) {	146	foreach my $dir (@dirs) {
145	my $abspath = File::Spec->catfile($root, $dir, $filename);	147	my $abspath = File::Spec->catfile($root, $dir, $filename);
146	if (-e $abspath) {	148	if (-e $abspath) {
147	-