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

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

version 1.28, 2003/09/16 22:40:25 version 1.34, 2004/01/14 15:51:07
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',['language','translator']);          ('environment',['languages']);
     my $language=$userenv{'language'};      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');
       my $pref=&mt('Preferred language');
       my %langchoices=('' => 'No language preference');
       foreach (&Apache::loncommon::languageids()) {
    if (&Apache::loncommon::supportedlanguagecode($_)) {
       $langchoices{&Apache::loncommon::supportedlanguagecode($_)}
                  = &Apache::loncommon::plainlanguagedescription($_);
    }
       }
       my $selectionbox=&Apache::loncommon::select_form($language,'language',
        %langchoices);
     $r->print(<<ENDLSCREEN);      $r->print(<<ENDLSCREEN);
 <html>  <html>
 $bodytag  $bodytag
   
 <form name="server" action="/adm/preferences" method="post">  <form name="server" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_languages" />  <input type="hidden" name="action" value="verify_and_change_languages" />
 <br />Preferred language:  <br />$pref: $selectionbox
 <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 141  sub verify_and_change_languages { Line 145  sub verify_and_change_languages {
     $newlanguage=~s/[^\-\w]//g;      $newlanguage=~s/[^\-\w]//g;
     my $message='';      my $message='';
     if ($newlanguage) {      if ($newlanguage) {
         &Apache::lonnet::put('environment',{'language' => $newlanguage});          &Apache::lonnet::put('environment',{'languages' => $newlanguage});
         &Apache::lonnet::appenv('environment.language' => $newlanguage);          &Apache::lonnet::appenv('environment.languages' => $newlanguage);
         $message='Set new preferred language to '.$newlanguage;          $message='Set new preferred languages to '.$newlanguage;
     } else {      } else {
         &Apache::lonnet::del('environment',['language']);          &Apache::lonnet::del('environment',['languages']);
         &Apache::lonnet::delenv('environment\.language');          &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);
Line 711  sub handler { Line 700  sub handler {
     my $r = shift;      my $r = shift;
     my $user = $ENV{'user.name'};      my $user = $ENV{'user.name'};
     my $domain = $ENV{'user.domain'};      my $domain = $ENV{'user.domain'};
     $r->content_type('text/html');      &Apache::loncommon::content_type($r,'text/html');
     # Some pages contain DES keys and should not be cached.      # Some pages contain DES keys and should not be cached.
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
Line 748  sub handler { Line 737  sub handler {
     }      }
  }   }
     } else {      } else {
    my %help=();
    foreach ('Change_Colors','Change_Password',
    'Prefs_Screen_Name_Nickname','Prefs_Forwarding') {
       $help{$_}=&Apache::loncommon::help_open_topic($_);
    }
  $r->print(<<ENDHEADER);   $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
Line 762  ENDHEADER Line 756  ENDHEADER
 <form name="client" action="/adm/preferences" method="post">  <form name="client" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="changepass" />  <input type="hidden" name="action" value="changepass" />
 <input type="submit" value="Change password" />  <input type="submit" value="Change password" />
   $help{'Change_Password'}
 </form>  </form>
 ENDPASSWORDFORM  ENDPASSWORDFORM
         }          }
Line 771  ENDPASSWORDFORM Line 766  ENDPASSWORDFORM
 <input type="hidden" name="action" value="changescreenname" />  <input type="hidden" name="action" value="changescreenname" />
 <input type="submit"   <input type="submit" 
 value="Change nickname and anonymous discussion screen name" />  value="Change nickname and anonymous discussion screen name" />
   $help{'Prefs_Screen_Name_Nickname'}
 </form>  </form>
 ENDSCREENNAMEFORM  ENDSCREENNAMEFORM
     $r->print(<<ENDMSGFORWARDFORM);      $r->print(<<ENDMSGFORWARDFORM);
 <form name="client" action="/adm/preferences" method="post">  <form name="client" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="changemsgforward" />  <input type="hidden" name="action" value="changemsgforward" />
 <input type="submit" value="Change message forwarding and notification addresses" />  <input type="submit" value="Change message forwarding and notification addresses" />
   $help{'Prefs_Forwarding'}
 </form>  </form>
 ENDMSGFORWARDFORM  ENDMSGFORWARDFORM
 # The "about me" page  # The "about me" page
Line 792  ENDABOUTME Line 789  ENDABOUTME
 <form name="client" action="/adm/preferences" method="post">  <form name="client" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="changecolors" />  <input type="hidden" name="action" value="changecolors" />
 <input type="submit" value="Change color scheme" />  <input type="submit" value="Change color scheme" />
   $help{'Change_Colors'}
 </form>  </form>
 ENDCOLORFORM  ENDCOLORFORM
   
Removed from v.1.28  
changed lines
  Added in v.1.34

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