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

Diff for /loncom/localize/lonlocal.pm between versions 1.54 and 1.56

version 1.54, 2009/02/01 21:54:30 version 1.56, 2009/03/20 18:26:34
Line 179  use vars qw($lh); Line 179  use vars qw($lh);
   
 # ===================================================== The "MakeText" function  # ===================================================== The "MakeText" function
   
 ######### Localize Cache  # ######### Localize Cache
 my @localize_cache;  # my @localize_cache;
 #########  # #########
   
 sub mt (@) {  sub mt (@) {
 #    open(LOG,'>>/home/www/loncapa/loncom/localize/localize/newphrases.txt');  #    open(LOG,'>>/home/www/loncapa/loncom/localize/localize/newphrases.txt');
Line 195  sub mt (@) { Line 195  sub mt (@) {
                 return $_[0];                  return $_[0];
             }              }
         } else {          } else {
  ######### Localize Cache              return $lh->maketext(@_);
  foreach my $e (@localize_cache)  # ######### Localize Cache
  {  # foreach my $e (@localize_cache)
  if($_[0] eq $$e[0]) { return $$e[1]; }  # {
  }  # if($_[0] eq $$e[0]) { return $$e[1]; }
   # }
  if($#localize_cache == 100) { pop(@localize_cache); }  #
  my $localize_entry = $lh->maketext(@_);  # if($#localize_cache == 100) { pop(@localize_cache); }
  unshift(@localize_cache, [ @_, $localize_entry ] );  # my $localize_entry = $lh->maketext(@_);
  #########  # unshift(@localize_cache, [ @_, $localize_entry ] );
               # #########
      return $localize_entry;  #            
   #     return $localize_entry;
         }          }
     } else {      } else {
  if (wantarray) {   if (wantarray) {
Line 302  sub get_genlanguages { Line 303  sub get_genlanguages {
   
 sub current_encoding {  sub current_encoding {
     my $default='UTF-8';      my $default='UTF-8';
     if ($Apache::lonnet::env{'browser.os'} eq 'win' &&   # UTF-8 character encoding needed for the whole LON-CAPA system
  $Apache::lonnet::env{'browser.type'} eq 'explorer') {  # (interface language and homework problem content)
         $default='ISO-8859-1';  # See Bugzilla 5702 vs. 2189 and 4067
     }  #    if ($Apache::lonnet::env{'browser.os'} eq 'win' && 
   # $Apache::lonnet::env{'browser.type'} eq 'explorer') {
   #        $default='ISO-8859-1';
   #    }
     if ($lh) {      if ($lh) {
  my $enc=$lh->maketext('char_encoding');   my $enc=$lh->maketext('char_encoding');
  return ($enc eq 'char_encoding'?$default:$enc);   return ($enc eq 'char_encoding'?$default:$enc);
Removed from v.1.54  
changed lines
  Added in v.1.56

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