authenticated page.
More information on the C<gettemplate> sub can be found in the
- Output.pm module.
+ Templates.pm module.
=cut
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