Lines 163-175
sub _get_template_language {
Link Here
|
163 |
my ($opaclang)= @_; |
163 |
my ($opaclang)= @_; |
164 |
return 'en' unless $opaclang; |
164 |
return 'en' unless $opaclang; |
165 |
my $path= C4::Context->config('intrahtdocs')."/prog/$opaclang"; |
165 |
my $path= C4::Context->config('intrahtdocs')."/prog/$opaclang"; |
166 |
my $pref= ','.C4::Context->preference('language').','; |
166 |
-d $path ? $opaclang : 'en'; |
167 |
if(-d $path) { |
|
|
168 |
if($pref =~ /,$opaclang,/ ) { |
169 |
return $opaclang; |
170 |
} |
171 |
} |
172 |
return 'en'; |
173 |
} |
167 |
} |
174 |
|
168 |
|
175 |
=item checkauth |
169 |
=item checkauth |
176 |
- |
|
|