my ($opaclang)= @_;
return 'en' unless $opaclang;
my $path= C4::Context->config('intrahtdocs')."/prog/$opaclang";
- my $pref= ','.C4::Context->preference('language').',';
- if(-d $path) {
- if($pref =~ /,$opaclang,/ ) {
- return $opaclang;
- }
- }
- return 'en';
+ -d $path ? $opaclang : 'en';
}
=item checkauth