version 1.5, 2003/09/17 23:16:27
|
version 1.6, 2003/09/20 13:21:45
|
Line 67 sub mt (@) {
|
Line 67 sub mt (@) {
|
} |
} |
} |
} |
|
|
|
# ============================================================== What language? |
|
|
|
sub current_language { |
|
return $lh->language_tag(); |
|
} |
|
|
# ============================================================== Translate hash |
# ============================================================== Translate hash |
|
|
sub texthash { |
sub texthash { |
Line 103 sub endreroutetrans {
|
Line 109 sub endreroutetrans {
|
|
|
sub get_language_handle { |
sub get_language_handle { |
$lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages); |
$lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages); |
|
# &Apache::lonnet::logthis($lh->encoding().' - '.$lh->language_tag()); |
} |
} |
|
|
1; |
1; |