loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.14, 2003/09/28 02:06:37	version 1.15, 2003/09/28 03:02:36
Line 225 sub current_encoding {	Line 225 sub current_encoding {
}	}
}	}

	# =============================================================== Which locale?
	# Refer to locale -a
	#
	sub current_locale {
	if ($lh) {
	my $enc=$lh->maketext('lang_locale');
	return ($enc eq 'lang_locale'?'':$enc);
	} else {
	return undef;
	}
	}

# ============================================================== Translate hash	# ============================================================== Translate hash

sub texthash {	sub texthash {
Line 265 sub get_language_handle {	Line 277 sub get_language_handle {
if (&Apache::lonnet::mod_perl_version == 1) {	if (&Apache::lonnet::mod_perl_version == 1) {
$r->content_languages([&current_language()]);	$r->content_languages([&current_language()]);
}	}
setlocale(LC_ALL,&current_language.'.'.&current_encoding);	setlocale(LC_ALL,&current_locale);
}	}

1;	1;