|
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 |
- |
|
|