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

Diff for /loncom/localize/lonlocal.pm between versions 1.4 and 1.8

version 1.4, 2003/09/17 01:45:14 version 1.8, 2003/09/20 17:04:02
Line 67  sub mt (@) { Line 67  sub mt (@) {
     }      }
 }  }
   
   # ============================================================== 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  # ============================================================== Translate hash
   
 sub texthash {  sub texthash {
Line 76  sub texthash { Line 89  sub texthash {
     }      }
     return %hash;      return %hash;
 }  }
   # ======================================================== Re-route translation
   
   sub clearreroutetrans {
       &reroutetrans();
       $reroute='';
   }
   
 # ======================================================== Re-route translation  # ======================================================== Re-route translation
   
 sub reroutetrans {  sub reroutetrans {
     $ENV{'transreroute'}=1;      $ENV{'transreroute'}=1;
     $reroute='';  
 }  }
   
 # ==================================================== End re-route translation  # ==================================================== End re-route translation
 sub endreroutetrans {  sub endreroutetrans {
     $ENV{'transreroute'}=0;      $ENV{'transreroute'}=0;
Line 97  sub endreroutetrans { Line 116  sub endreroutetrans {
   
 sub get_language_handle {  sub get_language_handle {
     $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.4  
changed lines
  Added in v.1.8

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