version 1.30, 2003/12/22 23:42:18
|
version 1.33, 2005/04/18 22:17:45
|
Line 185 sub mt (@) {
|
Line 185 sub mt (@) {
|
if ($lh) { |
if ($lh) { |
return $lh->maketext(@_); |
return $lh->maketext(@_); |
} else { |
} else { |
return @_; |
if (wantarray) { |
|
return @_; |
|
} else { |
|
return $_[0]; |
|
} |
} |
} |
} |
} |
|
|
Line 202 sub current_language {
|
Line 206 sub current_language {
|
# ============================================================== What encoding? |
# ============================================================== What encoding? |
|
|
sub current_encoding { |
sub current_encoding { |
|
my $default='UTF-8'; |
|
if ($Apache::lonnet::env{'browser.os'} eq 'win' && |
|
$Apache::lonnet::env{'browser.type'} eq 'explorer') { |
|
$default=undef; |
|
} |
if ($lh) { |
if ($lh) { |
my $enc=$lh->maketext('char_encoding'); |
my $enc=$lh->maketext('char_encoding'); |
return ($enc eq 'char_encoding'?'':$enc); |
return ($enc eq 'char_encoding'?$default:$enc); |
} else { |
} else { |
return undef; |
return $default; |
} |
} |
} |
} |
|
|
Line 236 sub texthash {
|
Line 245 sub texthash {
|
|
|
sub get_language_handle { |
sub get_language_handle { |
my $r=shift; |
my $r=shift; |
my $headers=$r->headers_in; |
if ($r) { |
$ENV{'HTTP_ACCEPT_LANGUAGE'}=$headers->{'Accept-language'}; |
my $headers=$r->headers_in; |
|
$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'}=''; |
$lh=Apache::localize->get_handle(@languages); |
$lh=Apache::localize->get_handle(@languages); |
if (&Apache::lonnet::mod_perl_version == 1) { |
if ($r && &Apache::lonnet::mod_perl_version == 1) { |
$r->content_languages([¤t_language()]); |
$r->content_languages([¤t_language()]); |
} |
} |
### setlocale(LC_ALL,¤t_locale); |
### setlocale(LC_ALL,¤t_locale); |