loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.29, 2003/12/22 23:34:49	version 1.30, 2003/12/22 23:42:18
Line 240 sub get_language_handle {	Line 240 sub get_language_handle {
$ENV{'HTTP_ACCEPT_LANGUAGE'}=$headers->{'Accept-language'};	$ENV{'HTTP_ACCEPT_LANGUAGE'}=$headers->{'Accept-language'};
my @languages=&Apache::loncommon::preferred_languages;	my @languages=&Apache::loncommon::preferred_languages;
$ENV{'HTTP_ACCEPT_LANGUAGE'}='';	$ENV{'HTTP_ACCEPT_LANGUAGE'}='';
&Apache::lonnet::logthis($r->uri.' '.join(' ',@languages));
$lh=Apache::localize->get_handle(@languages);	$lh=Apache::localize->get_handle(@languages);
if (&Apache::lonnet::mod_perl_version == 1) {	if (&Apache::lonnet::mod_perl_version == 1) {
$r->content_languages([&current_language()]);	$r->content_languages([&current_language()]);