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

Diff for /loncom/localize/lonlocal.pm between versions 1.11 and 1.12

version 1.11, 2003/09/22 22:53:21 version 1.12, 2003/09/23 02:19:09
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 212  sub current_language { Line 220  sub current_language {
 # ============================================================== 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 253  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) {
    $r->content_languages([&current_language()]);
       }
     my $enc=&current_encoding();      my $enc=&current_encoding();
     if ($enc) {      if ($enc) {
   
Removed from v.1.11  
changed lines
  Added in v.1.12

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