loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.27, 2003/12/10 00:32:56	version 1.28, 2003/12/22 22:39:07
Line 236 sub texthash {	Line 236 sub texthash {

sub get_language_handle {	sub get_language_handle {
my $r=shift;	my $r=shift;
$lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);	my $languages=&Apache::loncommon::preferred_languages;
	unless ($languages) {
	my $headers=$r->headers_in;
	$ENV{'HTTP_ACCEPT_LANGUAGE'}=$headers->{'Accept-language'};
	} else {
	$ENV{'HTTP_ACCEPT_LANGUAGE'}='';
	}
	$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()]);
}	}