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

Diff for /loncom/interface/lonpreferences.pm between versions 1.27 and 1.28

version 1.27, 2003/08/29 03:08:18 version 1.28, 2003/09/16 22:40:25
Line 101  sub des_decrypt { Line 101  sub des_decrypt {
 ################################################################  ################################################################
   
 ################################################################  ################################################################
   #         Language Change Subroutines                          #
   ################################################################
   sub languagechanger {
       my $r = shift;
       my $user       = $ENV{'user.name'};
       my $domain     = $ENV{'user.domain'};
       my %userenv = &Apache::lonnet::get
           ('environment',['language','translator']);
       my $language=$userenv{'language'};
       my $translator=$userenv{'translator'};
       my $bodytag=&Apache::loncommon::bodytag(
                 'Change Your Language Preferences');
       $r->print(<<ENDLSCREEN);
   <html>
   $bodytag
   
   <form name="server" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_languages" />
   <br />Preferred language:
   <input type="text" size="5" value="$language" name="language" />
   ENDLSCREEN
       if ($ENV{'user.adv'}) {
    $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>');
   }
   
   
   sub verify_and_change_languages {
       my $r = shift;
       my $user       = $ENV{'user.name'};
       my $domain     = $ENV{'user.domain'};
   # Screenname
       my $newlanguage  = $ENV{'form.language'};
       $newlanguage=~s/[^\-\w]//g;
       my $message='';
       if ($newlanguage) {
           &Apache::lonnet::put('environment',{'language' => $newlanguage});
           &Apache::lonnet::appenv('environment.language' => $newlanguage);
           $message='Set new preferred language to '.$newlanguage;
       } else {
           &Apache::lonnet::del('environment',['language']);
           &Apache::lonnet::delenv('environment\.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(
                       'Change Your Language Preferences');
       $r->print(<<ENDVCSCREEN);
   <html>
   $bodytag
   </p>
   $message
   </body></html>
   ENDVCSCREEN
   }
   
   
   ################################################################
 #         Anonymous Discussion Name Change Subroutines         #  #         Anonymous Discussion Name Change Subroutines         #
 ################################################################  ################################################################
 sub screennamechanger {  sub screennamechanger {
Line 657  sub handler { Line 733  sub handler {
         &colorschanger($r);          &colorschanger($r);
     } elsif ($ENV{'form.action'} eq 'verify_and_change_colors') {      } elsif ($ENV{'form.action'} eq 'verify_and_change_colors') {
         &verify_and_change_colors($r);          &verify_and_change_colors($r);
       } elsif ($ENV{'form.action'} eq 'changelanguages') {
           &languagechanger($r);
       } elsif ($ENV{'form.action'} eq 'verify_and_change_languages') {
           &verify_and_change_languages($r);
     } elsif ($ENV{'form.action'} eq 'debugtoggle') {      } elsif ($ENV{'form.action'} eq 'debugtoggle') {
  if (($ENV{'user.name'} eq 'albertel' ) ||   if (($ENV{'user.name'} eq 'albertel' ) ||
             ($ENV{'user.name'} eq 'kortemey' ) ||              ($ENV{'user.name'} eq 'kortemey' ) ||
Line 715  ENDABOUTME Line 795  ENDABOUTME
 </form>  </form>
 ENDCOLORFORM  ENDCOLORFORM
   
       $r->print(<<ENDLANGUAGES);
   <form name="client" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="changelanguages" />
   <input type="submit" value="Change language preferences" />
   </form>
   ENDLANGUAGES
   
  if (($ENV{'user.name'} eq 'albertel' ) ||   if (($ENV{'user.name'} eq 'albertel' ) ||
             ($ENV{'user.name'} eq 'kortemey' ) ||              ($ENV{'user.name'} eq 'kortemey' ) ||
             ($ENV{'user.name'} eq 'korte')) {              ($ENV{'user.name'} eq 'korte')) {
Removed from v.1.27  
changed lines
  Added in v.1.28

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