Lines 124-130
Returns the URL for the given file
Link Here
|
124 |
=cut |
124 |
=cut |
125 |
|
125 |
|
126 |
sub url { |
126 |
sub url { |
127 |
my ( $self, $filename ) = @_; |
127 |
my ( $self, $filename, $args ) = @_; |
128 |
|
128 |
|
129 |
my $stash = $self->{_CONTEXT}->stash(); |
129 |
my $stash = $self->{_CONTEXT}->stash(); |
130 |
my $interface = $stash->get('interface'); |
130 |
my $interface = $stash->get('interface'); |
Lines 136-148
sub url {
Link Here
|
136 |
my ($basename, $dirname, $suffix) = fileparse($filename, qr/\.[^.]*/); |
136 |
my ($basename, $dirname, $suffix) = fileparse($filename, qr/\.[^.]*/); |
137 |
|
137 |
|
138 |
my $type = substr $suffix, 1; |
138 |
my $type = substr $suffix, 1; |
|
|
139 |
|
140 |
my $version = Koha::version; |
141 |
$version =~ s/([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/$1.$2$3$4/; |
142 |
|
143 |
my $shared = $args->{shared}; |
144 |
if ($shared){ |
145 |
my $url = File::Spec->catfile('/shared',$dirname, "${basename}_${version}${suffix}"); |
146 |
return $url; |
147 |
} |
148 |
|
139 |
my @dirs = ( |
149 |
my @dirs = ( |
140 |
"$theme", |
150 |
"$theme", |
141 |
".", |
151 |
".", |
142 |
); |
152 |
); |
143 |
|
|
|
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) { |
153 |
foreach my $dir (@dirs) { |
147 |
my $abspath = File::Spec->catfile($root, $dir, $filename); |
154 |
my $abspath = File::Spec->catfile($root, $dir, $filename); |
148 |
if (-e $abspath) { |
155 |
if (-e $abspath) { |