loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.35, 2005/11/10 19:19:51	version 1.37, 2005/11/15 19:07:58
Line 163 package Apache::lonlocal;	Line 163 package Apache::lonlocal;
use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::localize;	use Apache::localize;
use Apache::File;
use locale;	use locale;
use POSIX qw(locale_h);	use POSIX qw(locale_h);

Line 179 use vars qw($lh);	Line 178 use vars qw($lh);
# ===================================================== The "MakeText" function	# ===================================================== The "MakeText" function

sub mt (@) {	sub mt (@) {
# my $fh=Apache::File->new('>>/home/www/loncapa/loncom/localize/localize/newphrases.txt');	# open(LOG,'>>/home/www/loncapa/loncom/localize/localize/newphrases.txt');
# print $fh @_[0]."\n";	# print LOG (@_[0]."\n");
# $fh->close();	# close(LOG);
if ($lh) {	if ($lh) {
return $lh->maketext(@_);	return $lh->maketext(@_);
} else {	} else {
Line 252 sub get_language_handle {	Line 251 sub get_language_handle {
my @languages=&Apache::loncommon::preferred_languages;	my @languages=&Apache::loncommon::preferred_languages;
$ENV{'HTTP_ACCEPT_LANGUAGE'}='';	$ENV{'HTTP_ACCEPT_LANGUAGE'}='';
$lh=Apache::localize->get_handle(@languages);	$lh=Apache::localize->get_handle(@languages);
if ($r && &Apache::lonnet::mod_perl_version == 1) {	if ($r) {
$r->content_languages([&current_language()]);	$r->content_languages([&current_language()]);
}	}
### setlocale(LC_ALL,&current_locale);	### setlocale(LC_ALL,&current_locale);