version 1.23, 2003/10/10 16:56:16
|
version 1.24, 2003/10/11 14:06:01
|
Line 210 sub mt (@) {
|
Line 210 sub mt (@) {
|
} |
} |
} |
} |
|
|
|
# ================================================================ The <mt> tag |
|
|
|
BEGIN { |
|
} |
|
|
|
sub start_mt { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
|
return &mt(&Apache::lonxml::get_all_text("/mt",$parser)); |
|
} |
|
|
|
sub end_mt { |
|
return ''; |
|
} |
|
|
# ============================================================== What language? |
# ============================================================== What language? |
|
|
sub current_language { |
sub current_language { |
Line 283 sub get_language_handle {
|
Line 297 sub get_language_handle {
|
if (&Apache::lonnet::mod_perl_version == 1) { |
if (&Apache::lonnet::mod_perl_version == 1) { |
$r->content_languages([¤t_language()]); |
$r->content_languages([¤t_language()]); |
} |
} |
|
&Apache::lonxml::register('Apache::lonlocal',('mt')); |
### setlocale(LC_ALL,¤t_locale); |
### setlocale(LC_ALL,¤t_locale); |
} |
} |
|
|