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

Diff for /loncom/interface/lonpreferences.pm between versions 1.31 and 1.32

version 1.31, 2003/09/29 19:33:51 version 1.32, 2003/11/07 23:22:21
Line 51  use Crypt::DES; Line 51  use Crypt::DES;
 use DynaLoader; # for Crypt::DES version  use DynaLoader; # for Crypt::DES version
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
   use Apache::lonlocal;
   
 #  #
 # Write lonnet::passwd to do the call below.  # Write lonnet::passwd to do the call below.
Line 108  sub languagechanger { Line 109  sub languagechanger {
     my $user       = $ENV{'user.name'};      my $user       = $ENV{'user.name'};
     my $domain     = $ENV{'user.domain'};      my $domain     = $ENV{'user.domain'};
     my %userenv = &Apache::lonnet::get      my %userenv = &Apache::lonnet::get
         ('environment',['languages','translator']);          ('environment',['languages']);
     my $language=$userenv{'languages'};      my $language=$userenv{'languages'};
     my $translator=$userenv{'translator'};  
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
               'Change Your Language Preferences');                'Change Your Language Preferences');
     $r->print(<<ENDLSCREEN);      $r->print(<<ENDLSCREEN);
Line 122  $bodytag Line 123  $bodytag
 <br />Preferred language:  <br />Preferred language:
 <input type="text" size="5" value="$language" name="language" />  <input type="text" size="5" value="$language" name="language" />
 ENDLSCREEN  ENDLSCREEN
     if ($ENV{'user.adv'}) {      $r->print('<br /><input type="submit" value="'.&mt('Change').'" /></form></body></html>');
  $r->print (<<ENDTRSC);  
 <br />Willing to translate for language:  
 <input type="text" size="5" value="$translator" name="translator" />  
 ENDTRSC  
     }  
     $r->print('<br /><input type="submit" value="Change" /></form></body></html>');  
 }  }
   
   
Line 149  sub verify_and_change_languages { Line 144  sub verify_and_change_languages {
         &Apache::lonnet::delenv('environment\.languages');          &Apache::lonnet::delenv('environment\.languages');
         $message='Reset preferred language';          $message='Reset preferred language';
     }      }
     if ($ENV{'user.adv'}) {  
  $message.='<br />';  
  my $newtrans  = $ENV{'form.translator'};  
  $newtrans=~s/[^\-\w]//g;  
  if ($newtrans) {  
     &Apache::lonnet::put('environment',{'translator' => $newtrans});  
     &Apache::lonnet::appenv('environment.translator' => $newtrans);  
     $message.='Set translator to '.$newtrans;  
  } else {  
     &Apache::lonnet::del('environment',['translator']);  
     &Apache::lonnet::delenv('environment\.translator');  
     $message.='Reset translator';  
  }  
     }  
   
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                     'Change Your Language Preferences');                      'Change Your Language Preferences');
     $r->print(<<ENDVCSCREEN);      $r->print(<<ENDVCSCREEN);
Removed from v.1.31  
changed lines
  Added in v.1.32

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