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

Diff for /loncom/localize/lonlocal.pm between versions 1.2 and 1.9

version 1.2, 2003/09/16 19:23:47 version 1.9, 2003/09/20 17:44:22
Line 32  package Apache::lonlocal; Line 32  package Apache::lonlocal;
   
 use strict;  use strict;
 use Apache::localize;  use Apache::localize;
   use Apache::File;
   
 require Exporter;  require Exporter;
   
 our @ISA = qw (Exporter);  our @ISA = qw (Exporter);
 our @EXPORT = qw(mt);  our @EXPORT = qw(mt);
   
   my $reroute;
   
 # ========================================================= The language handle  # ========================================================= The language handle
   
 use vars qw($lh);  use vars qw($lh);
Line 45  use vars qw($lh); Line 48  use vars qw($lh);
 # ===================================================== The "MakeText" function  # ===================================================== The "MakeText" function
   
 sub mt (@) {  sub mt (@) {
     return $lh->maketext(@_);      unless ($ENV{'environment.translator'}) {
    return $lh->maketext(@_);
       } else {
    my $trans=$lh->maketext(@_);
    my $link='<a target="trans" href="/cgi-bin/translator.pl?arg1='.
       &Apache::lonnet::escape($_[0]).'&arg2='.
       &Apache::lonnet::escape($_[1]).'&arg3='.
       &Apache::lonnet::escape($_[2]).'&lang='.
       $ENV{'environment.translator'}.
       '">[['.$trans.']]</a>';
    if ($ENV{'transreroute'}) {
       $reroute.=$link;
       return $trans;
    } else {
       return $link;
    }
       }
   }
   
   # ============================================================== What language?
   
   sub current_language {
       return $lh->language_tag();
   }
   
   # ============================================================== What encoding?
   
   sub current_encoding {
       my $enc=$lh->maketext('char_encoding');
       return ($enc eq 'char_encoding'?'':$enc);
   }
   
   # ============================================================== Translate hash
   
   sub texthash {
       my %hash=@_;
       foreach (keys %hash) {
    $hash{$_}=&mt($hash{$_});
       }
       return %hash;
   }
   # ======================================================== Re-route translation
   
   sub clearreroutetrans {
       &reroutetrans();
       $reroute='';
   }
   
   # ======================================================== Re-route translation
   
   sub reroutetrans {
       $ENV{'transreroute'}=1;
   }
   
   # ==================================================== End re-route translation
   sub endreroutetrans {
       $ENV{'transreroute'}=0;
       if ($ENV{'environment.translator'}) {
    return $reroute;
       } else {
    return '';
       }
 }  }
   
 # ========= Get a handle (do not invoke in vain, leave this to access handlers)  # ========= Get a handle (do not invoke in vain, leave this to access handlers)
   
 sub get_language_handle {  sub get_language_handle {
       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()"]);
       my $enc=&current_encoding();
       if ($enc) {
   
       }
 }  }
   
 1;  1;
Removed from v.1.2  
changed lines
  Added in v.1.9

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