Diff for /loncom/localize/lonlocal.pm between versions 1.3 and 1.5

version 1.3, 2003/09/16 22:40:25 version 1.5, 2003/09/17 23:16:27
Line 39  require Exporter; Line 39  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 49  sub mt (@) { Line 51  sub mt (@) {
     unless ($ENV{'environment.translator'}) {      unless ($ENV{'environment.translator'}) {
  return $lh->maketext(@_);   return $lh->maketext(@_);
     } else {      } else {
  return '<a target="trans" href="/cgi-bin/translator.pl?arg1='.   my $trans=$lh->maketext(@_);
    my $link='<a target="trans" href="/cgi-bin/translator.pl?arg1='.
     &Apache::lonnet::escape($_[0]).'&arg2='.      &Apache::lonnet::escape($_[0]).'&arg2='.
     &Apache::lonnet::escape($_[1]).'&arg3='.      &Apache::lonnet::escape($_[1]).'&arg3='.
     &Apache::lonnet::escape($_[2]).'&lang='.      &Apache::lonnet::escape($_[2]).'&lang='.
     $ENV{'environment.translator'}.      $ENV{'environment.translator'}.
     '">'.$lh->maketext(@_).'</a>';      '">[['.$trans.']]</a>';
    if ($ENV{'transreroute'}) {
       $reroute.=$link;
       return $trans;
    } else {
       return $link;
    }
       }
   }
   
   # ============================================================== 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 '';
     }      }
 }  }
   

Removed from v.1.3  
changed lines
  Added in v.1.5


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