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

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

version 1.53, 2009/01/02 23:07:52 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
   # 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');
 #    print LOG (@_[0]."\n");  #    print LOG (@_[0]."\n");
Line 192  sub mt (@) { Line 196  sub mt (@) {
             }              }
         } else {          } else {
             return $lh->maketext(@_);              return $lh->maketext(@_);
   # ######### Localize Cache
   # foreach my $e (@localize_cache)
   # {
   # if($_[0] eq $$e[0]) { return $$e[1]; }
   # }
   #
   # if($#localize_cache == 100) { pop(@localize_cache); }
   # my $localize_entry = $lh->maketext(@_);
   # unshift(@localize_cache, [ @_, $localize_entry ] );
   # #########
   #            
   #     return $localize_entry;
         }          }
     } else {      } else {
  if (wantarray) {   if (wantarray) {
Line 287  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.53  
changed lines
  Added in v.1.56

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