[BACK]Return to lonlocal.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / localize

Diff for /loncom/localize/lonlocal.pm between versions 1.10 and 1.13

version 1.10, 2003/09/22 18:16:43 version 1.13, 2003/09/23 03:02:37
Line 184  use vars qw($lh); Line 184  use vars qw($lh);
   
 sub mt (@) {  sub mt (@) {
     unless ($ENV{'environment.translator'}) {      unless ($ENV{'environment.translator'}) {
  return $lh->maketext(@_);   if ($lh) {
       return $lh->maketext(@_);
    } else {
       return @_;
    }
     } else {      } else {
  my $trans=$lh->maketext(@_);   if ($lh) {
  my $link='<a target="trans" href="/cgi-bin/translator.pl?arg1='.      my $trans=$lh->maketext(@_);
     &Apache::lonnet::escape($_[0]).'&arg2='.      my $link='<a target="trans" href="/cgi-bin/translator.pl?arg1='.
     &Apache::lonnet::escape($_[1]).'&arg3='.   &Apache::lonnet::escape($_[0]).'&arg2='.
     &Apache::lonnet::escape($_[2]).'&lang='.   &Apache::lonnet::escape($_[1]).'&arg3='.
     $ENV{'environment.translator'}.   &Apache::lonnet::escape($_[2]).'&lang='.
     '">[['.$trans.']]</a>';   $ENV{'environment.translator'}.
  if ($ENV{'transreroute'}) {   '">[['.$trans.']]</a>';
     $reroute.=$link;      if ($ENV{'transreroute'}) {
     return $trans;   $reroute.=$link;
    return $trans;
       } else {
    return $link;
       }
  } else {   } else {
     return $link;      return @_;
  }   }
     }      }
 }  }
Line 205  sub mt (@) { Line 213  sub mt (@) {
 # ============================================================== What language?  # ============================================================== What language?
   
 sub current_language {  sub current_language {
     return $lh->language_tag();      my $lang=$lh->maketext('language_code');
       return ($lang eq 'language_code'?'en':$lang);
 }  }
   
 # ============================================================== What encoding?  # ============================================================== What encoding?
   
 sub current_encoding {  sub current_encoding {
     my $enc=$lh->maketext('char_encoding');      if ($lh) {
     return ($enc eq 'char_encoding'?'':$enc);   my $enc=$lh->maketext('char_encoding');
    return ($enc eq 'char_encoding'?'':$enc);
       } else {
    return undef;
       }
 }  }
   
 # ============================================================== Translate hash  # ============================================================== Translate hash
Line 252  sub endreroutetrans { Line 265  sub endreroutetrans {
 sub get_language_handle {  sub get_language_handle {
     my $r=shift;      my $r=shift;
     $lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);      $lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);
     $r->content_languages(["&current_language()"]);      if (&Apache::lonnet::mod_perl_version == 1) {
     my $enc=&current_encoding();   $r->content_languages([&current_language()]);
     if ($enc) {  
   
     }      }
 }  }
   
Removed from v.1.10  
changed lines
  Added in v.1.13

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>