Diff for /loncom/localize/lonlocal.pm between versions 1.28 and 1.30

version 1.28, 2003/12/22 22:39:07 version 1.30, 2003/12/22 23:42:18
Line 236  sub texthash { Line 236  sub texthash {
   
 sub get_language_handle {  sub get_language_handle {
     my $r=shift;      my $r=shift;
     my $languages=&Apache::loncommon::preferred_languages;      my $headers=$r->headers_in;
     unless ($languages) {      $ENV{'HTTP_ACCEPT_LANGUAGE'}=$headers->{'Accept-language'};
  my $headers=$r->headers_in;      my @languages=&Apache::loncommon::preferred_languages;
  $ENV{'HTTP_ACCEPT_LANGUAGE'}=$headers->{'Accept-language'};      $ENV{'HTTP_ACCEPT_LANGUAGE'}='';
     } else {      $lh=Apache::localize->get_handle(@languages);
  $ENV{'HTTP_ACCEPT_LANGUAGE'}='';  
     }  
     $lh=Apache::localize->get_handle($languages);  
     if (&Apache::lonnet::mod_perl_version == 1) {      if (&Apache::lonnet::mod_perl_version == 1) {
  $r->content_languages([&current_language()]);   $r->content_languages([&current_language()]);
     }      }

Removed from v.1.28  
changed lines
  Added in v.1.30


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