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

version 1.27, 2003/12/10 00:32:56 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;
     $lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);      my $headers=$r->headers_in;
       $ENV{'HTTP_ACCEPT_LANGUAGE'}=$headers->{'Accept-language'};
       my @languages=&Apache::loncommon::preferred_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.27  
changed lines
  Added in v.1.30


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