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

Diff for /loncom/interface/lonpreferences.pm between versions 1.38 and 1.69.2.1

version 1.38, 2004/03/16 20:18:01 version 1.69.2.1, 2005/12/28 21:40:25
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # 2/13/02 2/14 2/15 Matthew Hall  
 #  
 # This package uses the "londes.js" javascript code.   # This package uses the "londes.js" javascript code. 
 #  #
 # TODOs that have to be completed:  # TODOs that have to be completed:
Line 42  use DynaLoader; # for Crypt::DES version Line 40  use DynaLoader; # for Crypt::DES version
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonnet;
   
 #  #
 # Write lonnet::passwd to do the call below.  # Write lonnet::passwd to do the call below.
Line 94  sub des_decrypt { Line 93  sub des_decrypt {
 ################################################################  ################################################################
 #         Language Change Subroutines                          #  #         Language Change Subroutines                          #
 ################################################################  ################################################################
   
   sub wysiwygchanger {
       my $r = shift;
       my %userenv = &Apache::lonnet::get
           ('environment',['wysiwygeditor']);
       my $offselect='';
       my $onselect='checked="1"';
       if ($userenv{'wysiwygeditor'}) {
    $onselect='';
    $offselect='checked="1"';
       }
       my $switchoff=&mt('Disable WYSIWYG editor');
       my $switchon=&mt('Enable WYSIWYG editor');
       $r->print(<<ENDLSCREEN);
   <form name="server" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="set_wysiwyg" />
   <br />
   <label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br />
   <label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label>
   ENDLSCREEN
       $r->print('<br /><input type="submit" value="'.&mt('Change').'" />');
   }
   
   
   sub verify_and_change_wysiwyg {
       my $r = shift;
       my $newsetting=$env{'form.wysiwyg'};
       &Apache::lonnet::put('environment',{'wysiwygeditor' => $newsetting});
       &Apache::lonnet::appenv('environment.wysiwygeditor' => $newsetting);
       $r->print('<p>'.&mt('Setting WYSIWYG editor to:').' '.&mt($newsetting).'</p>');
   }
   
   ################################################################
   #         Language Change Subroutines                          #
   ################################################################
 sub languagechanger {  sub languagechanger {
     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'};
     my %userenv = &Apache::lonnet::get      my %userenv = &Apache::lonnet::get
         ('environment',['languages']);          ('environment',['languages']);
     my $language=$userenv{'languages'};      my $language=$userenv{'languages'};
Line 123  ENDLSCREEN Line 157  ENDLSCREEN
   
 sub verify_and_change_languages {  sub verify_and_change_languages {
     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'};
 # Screenname  # Screenname
     my $newlanguage  = $ENV{'form.language'};      my $newlanguage  = $env{'form.language'};
     $newlanguage=~s/[^\-\w]//g;      $newlanguage=~s/[^\-\w]//g;
     my $message='';      my $message='';
     if ($newlanguage) {      if ($newlanguage) {
Line 139  sub verify_and_change_languages { Line 173  sub verify_and_change_languages {
         $message='Reset preferred language';          $message='Reset preferred language';
     }      }
     $r->print(<<ENDVCSCREEN);      $r->print(<<ENDVCSCREEN);
   $message
   ENDVCSCREEN
   }
   
   ################################################################
   #         Tex Engine Change Subroutines                        #
   ################################################################
   sub texenginechanger {
       my $r = shift;
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
       my %userenv = &Apache::lonnet::get('environment',['texengine']);
       my $texengine=$userenv{'texengine'};
   
       my $pref=&mt('Preferred method to display Math');
       my %mathchoices=('' => 'Default',
        'tth' => 'TeX to HTML',
        #'ttm' => 'TeX to MathML',
        'jsMath' => 'jsMath',
        'mimetex' => 'Convert to Images'
                        );
       my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine',
        %mathchoices);
       my $jsMath_start=&Apache::lontexconvert::jsMath_header();
       my $change=&mt('Change');
       $r->print(<<ENDLSCREEN);
   <br />
   
   <form name="server" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_texengine" />
   <p>$pref: $selectionbox</p>
   <p><input type="submit" value="$change" /></p>
   </form>
   Examples:
   <p> TeX to HTML <br /> 
   <iframe src="/res/adm/pages/math_example.tex?buttons=no&mode=tth" width="400" hieght="200"></iframe>
 </p>  </p>
   <p>jsMath <br /> 
   $jsMath_start
   <script type="text/javascript">
   if (jsMath.nofonts == 1) {
       document.writeln
           ('<center><div style="padding: 10; border-style: solid; border-width:3;'
    +' border-color: #DD0000; background-color: #FFF8F8; width: 75%; text-align: left">'
    +'<small><font color="#AA0000"><b>Warning:</b> '
    +'It looks like you don\\\'t have the TeX math fonts installed. '
    +'The jsMath example on this page may not look right without them. '
    +'The <a href="http://www.math.union.edu/locate/jsMath/" target="_blank"> '
    +'jsMath Home Page</a> has information on how to download the '
    +'needed fonts.  In the meantime, jsMath will do the best it can '
    +'with the fonts you have, but it may not be pretty and some equations '
    +'may not be rendered correctly. '
    +'</font></small></div></center>');
   }
   </script>
   <iframe src="/res/adm/pages/math_example.tex?buttons=no&mode=jsMath" width="400" hieght="200"></iframe>
   
   </p>
   <p> Convert to Images <br />
   <br />
   <iframe src="/res/adm/pages/math_example.tex?buttons=no&mode=mimetex" width="400" hieght="200"></iframe>
   </p>
   ENDLSCREEN
       if ($env{'environment.texengine'} ne 'jsMath') {
    $r->print('<script type="text/javascript">jsMath.Process()</script>');
       }
   }
   
   
   sub verify_and_change_texengine {
       my $r = shift;
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
   # Screenname
       my $newtexengine  = $env{'form.texengine'};
       $newtexengine=~s/[^\-\w]//g;
       if ($newtexengine eq 'ttm') {
    &Apache::lonnet::appenv('browser.mathml' => 1);
       } else {
    if ($env{'environment.texengine'} eq 'ttm') {
       &Apache::lonnet::appenv('browser.mathml' => 0);
    }
       }
       my $message='';
       if ($newtexengine) {
           &Apache::lonnet::put('environment',{'texengine' => $newtexengine});
           &Apache::lonnet::appenv('environment.texengine' => $newtexengine);
           $message='Set new preferred math display to '.$newtexengine;
       } else {
           &Apache::lonnet::del('environment',['texengine']);
           &Apache::lonnet::delenv('environment\.texengine');
           $message='Reset preferred math display.';
       }
   
   
       $r->print(<<ENDVCSCREEN);
 $message  $message
 ENDVCSCREEN  ENDVCSCREEN
 }  }
   
   ################################################################
   #         Roles Page Preference Change Subroutines         #
   ################################################################
   sub rolesprefchanger {
       my $r = shift;
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
       my %userenv = &Apache::lonnet::get
           ('environment',['recentroles','recentrolesn']);
       my $hotlist_flag=$userenv{'recentroles'};
       my $hotlist_n=$userenv{'recentrolesn'};
       my $checked;
       if ($hotlist_flag) {
    $checked = 'checked="checked"';
       }
       
       if (!$hotlist_n) { $hotlist_n=3; }
       my $options;
       for (my $i=1; $i<10; $i++) {
    my $select;
    if ($hotlist_n == $i) { $select = 'selected="selected"'; }
    $options .= "<option $select>$i</option>\n";
       }
   
       $r->print(<<ENDSCREEN);
   <p>Some LON-CAPA users have a long list of roles. The Recent Roles Hotlist
   feature keeps track of the last N roles which have been
   visited and places a table of these at the top of the roles page.
   People with very few roles should leave this feature disabled.
   </p>
   
   <form name="server" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_rolespref" />
   <br />Enable Recent Roles Hotlist:
   <input type="checkbox" $checked name="recentroles" value="true" />
   <br />Number of roles in Hotlist:
   <select name="recentrolesn" size="1">
   $options
   </select>
   <br />
   <input type="submit" value="Change" />
   </form>
   ENDSCREEN
   }
   
   sub verify_and_change_rolespref {
       my $r = shift;
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
   # Recent Roles Hotlist Flag
       my $hotlist_flag  = $env{'form.recentroles'};
       my $hotlist_n  = $env{'form.recentrolesn'};
       my $message='';
       if ($hotlist_flag) {
           &Apache::lonnet::put('environment',{'recentroles' => $hotlist_flag});
           &Apache::lonnet::appenv('environment.recentroles' => $hotlist_flag);
           $message='Recent Roles Hotlist is Enabled';
       } else {
           &Apache::lonnet::del('environment',['recentroles']);
           &Apache::lonnet::delenv('environment\.recentroles');
           $message='Recent Roles Hotlist is Disabled';
       }
       if ($hotlist_n) {
           &Apache::lonnet::put('environment',{'recentrolesn' => $hotlist_n});
           &Apache::lonnet::appenv('environment.recentrolesn' => $hotlist_n);
           if ($hotlist_flag) {
               $message.="<br />Display $hotlist_n Most Recent Roles\n";
           }
       }
   
       $r->print(<<ENDRPSCREEN);
   $message
   ENDRPSCREEN
   }
   
   
   
 ################################################################  ################################################################
 #         Anonymous Discussion Name Change Subroutines         #  #         Anonymous Discussion Name Change Subroutines         #
 ################################################################  ################################################################
 sub screennamechanger {  sub screennamechanger {
     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'};
     my %userenv = &Apache::lonnet::get      my %userenv = &Apache::lonnet::get
         ('environment',['screenname','nickname']);          ('environment',['screenname','nickname']);
     my $screenname=$userenv{'screenname'};      my $screenname=$userenv{'screenname'};
Line 170  ENDSCREEN Line 375  ENDSCREEN
   
 sub verify_and_change_screenname {  sub verify_and_change_screenname {
     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'};
 # Screenname  # Screenname
     my $newscreen  = $ENV{'form.screenname'};      my $newscreen  = $env{'form.screenname'};
     $newscreen=~s/[^ \w]//g;      $newscreen=~s/[^ \w]//g;
     my $message='';      my $message='';
     if ($newscreen) {      if ($newscreen) {
Line 187  sub verify_and_change_screenname { Line 392  sub verify_and_change_screenname {
     }      }
 # Nickname  # Nickname
     $message.='<br />';      $message.='<br />';
     $newscreen  = $ENV{'form.nickname'};      $newscreen  = $env{'form.nickname'};
     $newscreen=~s/[^ \w]//g;      $newscreen=~s/[^ \w]//g;
     if ($newscreen) {      if ($newscreen) {
         &Apache::lonnet::put('environment',{'nickname' => $newscreen});          &Apache::lonnet::put('environment',{'nickname' => $newscreen});
Line 198  sub verify_and_change_screenname { Line 403  sub verify_and_change_screenname {
         &Apache::lonnet::delenv('environment\.nickname');          &Apache::lonnet::delenv('environment\.nickname');
         $message.='Reset nickname';          $message.='Reset nickname';
     }      }
       &Apache::lonnet::devalidate_cache_new('namescache',$user.':'.$domain);
     $r->print(<<ENDVCSCREEN);      $r->print(<<ENDVCSCREEN);
 </p>  
 $message  $message
 ENDVCSCREEN  ENDVCSCREEN
 }  }
Line 211  ENDVCSCREEN Line 415  ENDVCSCREEN
   
 sub msgforwardchanger {  sub msgforwardchanger {
     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'};
     my %userenv = &Apache::lonnet::get('environment',['msgforward','notification','critnotification']);      my %userenv = &Apache::lonnet::get('environment',['msgforward','notification','critnotification']);
     my $msgforward=$userenv{'msgforward'};      my $msgforward=$userenv{'msgforward'};
     my $notification=$userenv{'notification'};      my $notification=$userenv{'notification'};
Line 241  ENDMSG Line 445  ENDMSG
   
 sub verify_and_change_msgforward {  sub verify_and_change_msgforward {
     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'};
     my $newscreen  = '';      my $newscreen  = '';
     my $message='';      my $message='';
     foreach (split(/\,/,$ENV{'form.msgforward'})) {      foreach (split(/\,/,$env{'form.msgforward'})) {
  my ($msuser,$msdomain)=split(/[\@\:]/,$_);   my ($msuser,$msdomain)=split(/[\@\:]/,$_);
         $msuser=~s/\W//g;          $msuser=~s/\W//g;
         $msdomain=~s/\W//g;          $msdomain=~s/\W//g;
Line 267  sub verify_and_change_msgforward { Line 471  sub verify_and_change_msgforward {
         &Apache::lonnet::delenv('environment\.msgforward');          &Apache::lonnet::delenv('environment\.msgforward');
         $message.='Reset message forwarding<br />';          $message.='Reset message forwarding<br />';
     }      }
     my $notification=$ENV{'form.notification'};      my $notification=$env{'form.notification'};
     $notification=~s/\s//gs;      $notification=~s/\s//gs;
     if ($notification) {      if ($notification) {
         &Apache::lonnet::put('environment',{'notification' => $notification});          &Apache::lonnet::put('environment',{'notification' => $notification});
Line 278  sub verify_and_change_msgforward { Line 482  sub verify_and_change_msgforward {
         &Apache::lonnet::delenv('environment\.notification');          &Apache::lonnet::delenv('environment\.notification');
         $message.='Reset message notification<br />';          $message.='Reset message notification<br />';
     }      }
     my $critnotification=$ENV{'form.critnotification'};      my $critnotification=$env{'form.critnotification'};
     $critnotification=~s/\s//gs;      $critnotification=~s/\s//gs;
     if ($critnotification) {      if ($critnotification) {
         &Apache::lonnet::put('environment',{'critnotification' => $critnotification});          &Apache::lonnet::put('environment',{'critnotification' => $critnotification});
Line 290  sub verify_and_change_msgforward { Line 494  sub verify_and_change_msgforward {
         $message.='Reset critical message notification<br />';          $message.='Reset critical message notification<br />';
     }      }
     $r->print(<<ENDVCMSG);      $r->print(<<ENDVCMSG);
 </p>  
 $message  $message
 ENDVCMSG  ENDVCMSG
 }  }
Line 303  sub colorschanger { Line 506  sub colorschanger {
     my $r = shift;      my $r = shift;
 # figure out colors  # figure out colors
     my $function='student';      my $function='student';
     if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {      if ($env{'request.role'}=~/^(cc|in|ta|ep)/) {
  $function='coordinator';   $function='coordinator';
     }      }
     if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {      if ($env{'request.role'}=~/^(su|dc|ad|li)/) {
  $function='admin';   $function='admin';
     }      }
     if (($ENV{'request.role'}=~/^(au|ca)/) ||      if (($env{'request.role'}=~/^(au|ca)/) ||
  ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {   ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {
  $function='author';   $function='author';
     }      }
Line 379  sub verify_and_change_colors { Line 582  sub verify_and_change_colors {
     my $r = shift;      my $r = shift;
 # figure out colors  # figure out colors
     my $function='student';      my $function='student';
     if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {      if ($env{'request.role'}=~/^(cc|in|ta|ep)/) {
  $function='coordinator';   $function='coordinator';
     }      }
     if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {      if ($env{'request.role'}=~/^(su|dc|ad|li)/) {
  $function='admin';   $function='admin';
     }      }
     if (($ENV{'request.role'}=~/^(au|ca)/) ||      if (($env{'request.role'}=~/^(au|ca)/) ||
  ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {   ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {
  $function='author';   $function='author';
     }      }
Line 400  sub verify_and_change_colors { Line 603  sub verify_and_change_colors {
   
     my $message='';      my $message='';
     foreach my $item (keys %colortypes) {      foreach my $item (keys %colortypes) {
         my $color=$ENV{'form.'.$item};          my $color=$env{'form.'.$item};
         my $entry='color.'.$function.'.'.$item;          my $entry='color.'.$function.'.'.$item;
  if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$ENV{'form.resetall'})) {   if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$env{'form.resetall'})) {
     &Apache::lonnet::put('environment',{$entry => $color});      &Apache::lonnet::put('environment',{$entry => $color});
     &Apache::lonnet::appenv('environment.'.$entry => $color);      &Apache::lonnet::appenv('environment.'.$entry => $color);
     $message.='Set '.$colortypes{$item}.' to '.$color.'<br />';      $message.='Set '.$colortypes{$item}.' to '.$color.'<br />';
Line 413  sub verify_and_change_colors { Line 616  sub verify_and_change_colors {
  }   }
     }      }
     $r->print(<<ENDVCCOL);      $r->print(<<ENDVCCOL);
 </p>  
 $message  $message
 <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" />
Line 430  sub passwordchanger { Line 632  sub passwordchanger {
     my $r = shift;      my $r = shift;
     my $errormessage = shift;      my $errormessage = shift;
     $errormessage = ($errormessage || '');      $errormessage = ($errormessage || '');
     my $user       = $ENV{'user.name'};      my $user       = $env{'user.name'};
     my $domain     = $ENV{'user.domain'};      my $domain     = $env{'user.domain'};
     my $homeserver = $ENV{'user.home'};      my $homeserver = $env{'user.home'};
     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);      my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
     # Check for authentication types that allow changing of the password.      # Check for authentication types that allow changing of the password.
     return if ($currentauth !~ /^(unix|internal):/);      return if ($currentauth !~ /^(unix|internal):/);
Line 457  sub passwordchanger { Line 659  sub passwordchanger {
     $lkey_npass2= hex($lkey_npass2);      $lkey_npass2= hex($lkey_npass2);
     # Output javascript to deal with passwords      # Output javascript to deal with passwords
     # Output DES javascript      # Output DES javascript
     $r->print("<html><head>");      my $html=&Apache::lonxml::xmlbegin();
       $r->print($html."<head>");
     {      {
  my $include = $r->dir_config('lonIncludes');   my $include = $r->dir_config('lonIncludes');
  my $jsh=Apache::File->new($include."/londes.js");   my $jsh=Apache::File->new($include."/londes.js");
Line 471  sub passwordchanger { Line 674  sub passwordchanger {
         lextkey=this.document.client.elements.lkey_cpass.value;          lextkey=this.document.client.elements.lkey_cpass.value;
         initkeys();          initkeys();
   
         this.document.server.elements.currentpass.value          this.document.pserver.elements.currentpass.value
             =crypted(this.document.client.elements.currentpass.value);              =crypted(this.document.client.elements.currentpass.value);
   
         uextkey=this.document.client.elements.ukey_npass1.value;          uextkey=this.document.client.elements.ukey_npass1.value;
         lextkey=this.document.client.elements.lkey_npass1.value;          lextkey=this.document.client.elements.lkey_npass1.value;
         initkeys();          initkeys();
         this.document.server.elements.newpass_1.value          this.document.pserver.elements.newpass_1.value
             =crypted(this.document.client.elements.newpass_1.value);              =crypted(this.document.client.elements.newpass_1.value);
   
         uextkey=this.document.client.elements.ukey_npass2.value;          uextkey=this.document.client.elements.ukey_npass2.value;
         lextkey=this.document.client.elements.lkey_npass2.value;          lextkey=this.document.client.elements.lkey_npass2.value;
         initkeys();          initkeys();
         this.document.server.elements.newpass_2.value          this.document.pserver.elements.newpass_2.value
             =crypted(this.document.client.elements.newpass_2.value);              =crypted(this.document.client.elements.newpass_2.value);
   
         this.document.server.submit();          this.document.pserver.submit();
     }      }
   
 </script>  </script>
Line 497  $errormessage Line 700  $errormessage
      ensure that unencrypted passwords will not be sent out by a       ensure that unencrypted passwords will not be sent out by a
      crappy browser -->       crappy browser -->
   
 <form name="server" action="/adm/preferences" method="post">  <form name="pserver" action="/adm/preferences" method="post">
 <input type="hidden" name="logtoken"    value="$logtoken" />  <input type="hidden" name="logtoken"    value="$logtoken" />
 <input type="hidden" name="action"      value="verify_and_change_pass" />  <input type="hidden" name="action"      value="verify_and_change_pass" />
 <input type="hidden" name="currentpass" value="" />  <input type="hidden" name="currentpass" value="" />
Line 531  ENDFORM Line 734  ENDFORM
   
 sub verify_and_change_password {  sub verify_and_change_password {
     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'};
     my $homeserver = $ENV{'user.home'};      my $homeserver = $env{'user.home'};
     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);      my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
     # Check for authentication types that allow changing of the password.      # Check for authentication types that allow changing of the password.
     return if ($currentauth !~ /^(unix|internal):/);      return if ($currentauth !~ /^(unix|internal):/);
     #      #
       my $html=&Apache::lonxml::xmlbegin();
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  $html
 <head>  <head>
 <title>LON-CAPA Preferences:  Change password for $user</title>  <title>LON-CAPA Preferences:  Change password for $user</title>
 </head>  </head>
 ENDHEADER  ENDHEADER
     #      #
     my $currentpass = $ENV{'form.currentpass'};       my $currentpass = $env{'form.currentpass'}; 
     my $newpass1    = $ENV{'form.newpass_1'};       my $newpass1    = $env{'form.newpass_1'}; 
     my $newpass2    = $ENV{'form.newpass_2'};      my $newpass2    = $env{'form.newpass_2'};
     my $logtoken    = $ENV{'form.logtoken'};      my $logtoken    = $env{'form.logtoken'};
     # Check for empty data       # Check for empty data 
     unless (defined($currentpass) &&       unless (defined($currentpass) && 
     defined($newpass1)    &&       defined($newpass1)    && 
Line 628  ENDERROR Line 832  ENDERROR
     return;      return;
 }  }
   
   ################################################################
   #            discussion display subroutines 
   ################################################################
   sub discussionchanger {
       my $r = shift;
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
       my %userenv = &Apache::lonnet::get
           ('environment',['discdisplay','discmarkread']);
       my $discdisp = 'allposts';
       my $discmark = 'onmark';
   
       if (defined($userenv{'discdisplay'})) {
           unless ($userenv{'discdisplay'} eq '') { 
               $discdisp = $userenv{'discdisplay'};
           }
       }
       if (defined($userenv{'discmarkread'})) {
           unless ($userenv{'discdisplay'} eq '') { 
               $discmark = $userenv{'discmarkread'};
           }
       }
   
       my $newdisp = 'unread';
       my $newmark = 'ondisp';
   
       my $function = &Apache::loncommon::get_users_function();
       my $color = &Apache::loncommon::designparm($function.'.tabbg',
                                                       $env{'user.domain'});
       my %lt = &Apache::lonlocal::texthash(
           'pref' => 'Display Preference',
           'curr' => 'Current setting ',
           'actn' => 'Action',
           'sdpf' => 'Set display preferences for discussion posts for both bulletin boards and individual resources in all your courses.',
           'prca' => 'Preferences can be set that determine',
           'whpo' => 'Which posts are displayed when you display a bulletin board or resource, and',
           'unwh' => 'Under what circumstances posts are identfied as "New"',
           'allposts' => 'All posts',
           'unread' => 'New posts only',
           'ondisp' => 'Once displayed',
           'onmark' => 'Once marked as read',
           'disa' => 'Posts displayed?',
           'npmr' => 'New posts cease to be identified as "New"?',
           'thde'  => 'The preferences you set here can be overridden within each individual discussion.',
           'chgt' => 'Change to '
       );
       my $dispchange = $lt{'unread'};
       my $markchange = $lt{'ondisp'};
       my $currdisp = $lt{'allposts'};
       my $currmark = $lt{'onmark'};
   
       if ($discdisp eq 'unread') {
           $dispchange = $lt{'allposts'};
           $currdisp = $lt{'unread'};
           $newdisp = 'allposts';
       }
   
       if ($discmark eq 'ondisp') {
           $markchange = $lt{'onmark'};
           $currmark = $lt{'ondisp'};
           $newmark = 'onmark';
       }
       
       $r->print(<<"END");
   <form name="server" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_discussion" />
   <br />
   $lt{'sdpf'}<br/> $lt{'prca'}  <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li></ol> 
   <br />
   <br />
   <table border="0" cellpadding="0" cellspacing="0">
    <tr>
     <td width="100%" bgcolor="#000000">
      <table width="100%" border="0" cellpadding="1" cellspacing="0">
       <tr>
        <td width="100%" bgcolor="#000000">
         <table border="0" cellpadding="3" cellspacing="3" bgcolor="#FFFFFF">
          <tr bgcolor="$color">
           <td><b>$lt{'pref'}</b></td>
           <td><b>$lt{'curr'}</b></td>
           <td><b>$lt{'actn'}?</b></td>
          </tr>
          <tr bgcolor="#dddddd">
          <td>$lt{'disa'}</td>
          <td>$lt{$discdisp}</td>
          <td><input type="checkbox" name="discdisp" /><input type="hidden" name="newdisp" value="$newdisp" />&nbsp;$lt{'chgt'} "$dispchange"</td>
         </tr><tr bgcolor="#eeeeee">
          <td>$lt{'npmr'}</td>
          <td>$lt{$discmark}</td>
          <td><input type="checkbox" name="discmark" /><input type="hidden" name="newmark" value="$newmark" />&nbsp;$lt{'chgt'} "$markchange"</td>
         </tr>
        </table>
       </td>
      </tr>
     </table>
    </td>
   </tr>
   </table>
   <br />
   <br />
   <input type="submit" name="sub" value="Store Changes" />
   <br />
   <br />
   Note: $lt{'thde'}
   </form>
   END
   }
                                                                                                                   
   sub verify_and_change_discussion {
       my $r = shift;
       my $user     = $env{'user.name'};
       my $domain   = $env{'user.domain'};
       my $message='';
       if (defined($env{'form.discdisp'}) ) {
           my $newdisp  = $env{'form.newdisp'};
           if ($newdisp eq 'unread') {
               $message .='In discussions: only new posts will be displayed.<br/>';
               &Apache::lonnet::put('environment',{'discdisplay' => $newdisp});
               &Apache::lonnet::appenv('environment.discdisplay' => $newdisp);
           } else {
               $message .= 'In discussions: all posts will be displayed.<br/>';
               &Apache::lonnet::del('environment',['discdisplay']);
               &Apache::lonnet::delenv('environment\.discdisplay');
           }
       }
       if (defined($env{'form.discmark'}) ) {
           my $newmark = $env{'form.newmark'};
           if ($newmark eq 'ondisp') {
              $message.='In discussions: new posts will be cease to be identified as "new" after display.<br/>';
               &Apache::lonnet::put('environment',{'discmarkread' => $newmark});
               &Apache::lonnet::appenv('environment.discmarkread' => $newmark);
           } else {
               $message.='In discussions: posts will be identified as "new" until marked as read by the reader.<br/>';
               &Apache::lonnet::del('environment',['discmarkread']);
               &Apache::lonnet::delenv('environment\.discmarkread');
           }
       }
       $r->print(<<ENDVCSCREEN);
   $message
   ENDVCSCREEN
   }
   
   ################################################################
   # Subroutines for page display on course access (Course Coordinators)
   ################################################################
   sub coursedisplaychanger {
       my $r = shift;
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
       my %userenv = &Apache::lonnet::get('environment',['course_init_display']);
   
       my $firstselect='checked="checked"';
       my $whatsnewselect='';
       if ($userenv{'course_init_display'} ne 'firstres') {
           $firstselect='';
           $whatsnewselect='checked="checked"';
       }
       my $whatsnew_off=&mt('Display the first resource in the course.');
       my $whatsnew_on=&mt('Display a summary of items in the course which require action from the course coordinator.');
   
       $r->print('<br /><b>'.&mt('Set the page to be displayed when you select the role of Course Coordinator').':</b>');
       $r->print(<<ENDLSCREEN);
   <form name="server" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_coursepage" />
   <br />
   <label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br />
   <label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label>
   ENDLSCREEN
       $r->print('<br /><input type="submit" value="'.&mt('Change').'" />
   </form>');
   }
   
   sub verify_and_change_coursepage {
       my $r = shift;
       my $message='';
       my %lt = &Apache::lonlocal::texthash(
           'when' => 'Whenever you select the Course Coordinator role from the roles screen',
           'ywbt' => 'you will be taken to the start of the course.',
           'apwb' => 'a page will be displayed that lists items in the course that may require action from you.',
           'gtts' => 'Go to the start of the course',
           'dasp' => 'Display a summary page listing course action items', 
       );
       my $newdisp  = $env{'form.newdisp'};
       if ($newdisp eq 'firstres') {
           $message .= $lt{'when'}.', '.$lt{'ywbt'}.'<br/>';
           &Apache::lonnet::put('environment',{'course_init_display' => $newdisp});
           &Apache::lonnet::appenv('environment.course_init_display' => $newdisp);
       } else {
           $message .= $lt{'when'}.', '.$lt{'apwb'}.'<br/>';
           &Apache::lonnet::del('environment',['course_init_display']);
           &Apache::lonnet::delenv('environment\.course_init_display');
       }
       if (($env{'request.course.fn'}) && ($env{'request.course.id'})) {
           if ($newdisp eq 'firstres') {
               my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
               my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; 
               my ($furl,$ferr)=
                   &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
               $message .= '<br /><font size="+1"><a href="'.$furl.'">'.$lt{'gtts'}.' <i>'.&mt('now').'</i></a></font>';
           } else {
               $message .= '<br /><font size="+1"><a href="/adm/whatsnew">'.$lt{'dasp'}.'</a></font>';
           }
       }
       $r->print(<<ENDVCSCREEN);
   $message
   <br /><br />
   ENDVCSCREEN
   }
   
   
 ######################################################  ######################################################
 #            other handler subroutines               #  #            other handler subroutines               #
 ######################################################  ######################################################
Line 637  ENDERROR Line 1051  ENDERROR
 ################################################################  ################################################################
 sub handler {  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'};
     &Apache::loncommon::content_type($r,'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);
Line 646  sub handler { Line 1060  sub handler {
     return OK if $r->header_only;      return OK if $r->header_only;
     #      #
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['action']);                                              ['action','wysiwyg','returnurl']);
     #      #
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
Line 658  sub handler { Line 1072  sub handler {
     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);      my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
     if ($currentauth =~ /^(unix|internal):/) {      if ($currentauth =~ /^(unix|internal):/) {
         push (@Options,({ action   => 'changepass',          push (@Options,({ action   => 'changepass',
                           linktext => 'Change password',                            linktext => 'Change Password',
                           href     => '/adm/preferences',                            href     => '/adm/preferences',
                           help     => 'Change_Password',                            help     => 'Change_Password',
                           subroutine => \&passwordchanger,                            subroutine => \&passwordchanger,
Line 692  sub handler { Line 1106  sub handler {
                       }));                        }));
   
     push (@Options,({ action   => 'changemsgforward',      push (@Options,({ action   => 'changemsgforward',
                       linktext => 'Change Message Forwarding',                        linktext => 'Change Message Forwarding and Notification Addresses',
                       text     => 'and Notification Addresses',  
                       href     => '/adm/preferences',                        href     => '/adm/preferences',
                       help     => 'Prefs_Forwarding',                        help     => 'Prefs_Forwarding',
                       breadcrumb =>                         breadcrumb => 
Line 708  sub handler { Line 1121  sub handler {
                       printmenu => 'yes',                        printmenu => 'yes',
                       subroutine => \&verify_and_change_msgforward }));                        subroutine => \&verify_and_change_msgforward }));
     my $aboutmeaction=      my $aboutmeaction=
         '/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme';          '/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme';
     push (@Options,{ action => 'none',       push (@Options,{ action => 'none', 
                      linktext =>                       linktext =>
                          q{Edit the 'About Me' personal information screen},                           q{Edit the 'About Me' Personal Information Screen},
        help => 'Prefs_About_Me',
                      href => $aboutmeaction});                       href => $aboutmeaction});
     push (@Options,({ action => 'changecolors',      push (@Options,({ action => 'changecolors',
                       linktext => 'Change Color Scheme',                        linktext => 'Change Color Scheme',
Line 730  sub handler { Line 1144  sub handler {
                       subroutine => \&verify_and_change_colors,                        subroutine => \&verify_and_change_colors,
                       }));                        }));
     push (@Options,({ action => 'changelanguages',      push (@Options,({ action => 'changelanguages',
                       linktext => 'Change Language Prefences',                        linktext => 'Change Language Preferences',
                       href => '/adm/preferences',                        href => '/adm/preferences',
         help => 'Prefs_Language',
                       breadcrumb=>                        breadcrumb=>
                           { href => '/adm/preferences?action=changelanguages',                            { href => '/adm/preferences?action=changelanguages',
                             text => 'Change Language'},                              text => 'Change Language'},
Line 744  sub handler { Line 1159  sub handler {
                       printmenu => 'yes',                        printmenu => 'yes',
                       subroutine=>\&verify_and_change_languages, }                        subroutine=>\&verify_and_change_languages, }
                     ));                      ));
     if ($ENV{'user.name'} =~ /^(albertel|koretemey|korte|hallmat3|turtle)$/) {      push (@Options,({ action => 'changewysiwyg',
                         linktext => 'Change WYSIWYG Editor Preferences',
                         href => '/adm/preferences',
                         breadcrumb => 
                               { href => '/adm/preferences?action=changewysiwyg',
                                 text => 'Change WYSIWYG Preferences'},
                         subroutine => \&wysiwygchanger,
                     },
                       { action => 'set_wysiwyg',
                         breadcrumb =>
                             { href => '/adm/preferences?action=changewysiwyg',
                               text => 'Change WYSIWYG Preferences'},
                         printmenu => 'yes',
                         subroutine => \&verify_and_change_wysiwyg, }
                       ));
       push (@Options,({ action => 'changediscussions',
                         linktext => 'Change Discussion Display Preferences',
                         href => '/adm/preferences',
                         help => 'Change_Discussion_Display',
                         breadcrumb => 
                               { href => '/adm/preferences?action=changediscussions',
                                 text => 'Change Discussion Preferences'},
                         subroutine => \&discussionchanger,
                     },
                       { action => 'verify_and_change_discussion',
                         breadcrumb =>
                             { href => '/adm/preferences?action=changediscussions',
                               text => 'Change Discussion Preferences'},
                         printmenu => 'yes',
                         subroutine => \&verify_and_change_discussion, }
                       ));
                          
       push (@Options,({ action   => 'changerolespref',
                         linktext => 'Change Roles Page Preferences',
                         href     => '/adm/preferences',
                         subroutine => \&rolesprefchanger,
                         breadcrumb =>
                             { href => '/adm/preferences?action=changerolespref',
                               text => 'Change Roles Pref'},
                         },
                       { action   => 'verify_and_change_rolespref',
                         subroutine => \&verify_and_change_rolespref,
                         breadcrumb =>
                             { href => '/adm/preferences?action=changerolespref',
                               text => 'Change Roles Preferences'},
                         printmenu => 'yes',
                         }));
   
       push (@Options,({ action   => 'changetexenginepref',
                         linktext => 'Change How Math Equations Are Displayed',
                         href     => '/adm/preferences',
                         subroutine => \&texenginechanger,
                         breadcrumb =>
                             { href => '/adm/preferences?action=changetexenginepref',
                               text => 'Change Math Pref'},
                         },
                       { action   => 'verify_and_change_texengine',
                         subroutine => \&verify_and_change_texengine,
                         breadcrumb =>
                             { href => '/adm/preferences?action=changetexenginepref',
                               text => 'Change Math Preferences'},
                         printmenu => 'yes',
                         }));
       if($env{'request.role'} =~ /^cc\.\//) {
           push (@Options,({ action => 'changecourseinit',
                             linktext => 'Change Course Initialization Preference',
                             href => '/adm/preferences',
                             subroutine => \&coursedisplaychanger,
                             breadcrumb =>
                                 { href => '/adm/preferences?action=changecourseinit',
                                   text => 'Change Course Init. Pref.'},
                             },
                           { action => 'verify_and_change_coursepage',
                             breadcrumb =>
                             { href => '/adm/preferences?action=changecourseinit',                               text => 'Change Course Initialization Preference'},
                           printmenu => 'yes',
                           subroutine => \&verify_and_change_coursepage,
                          }));
       }
   
       if ($env{'user.name'} =~ /^(albertel|fox|foxr|koretemey|korte|hallmat3|turtle|raeburn)$/) {
         push (@Options,({ action => 'debugtoggle',          push (@Options,({ action => 'debugtoggle',
                           printmenu => 'yes',                            printmenu => 'yes',
                           subroutine => \&toggle_debug,                            subroutine => \&toggle_debug,
                           }));                            }));
     }      }
       my $html=&Apache::lonxml::xmlbegin();
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  $html
 <head>  <head>
 <title>LON-CAPA Preferences</title>  <title>LON-CAPA Preferences</title>
 </head>  </head>
 ENDHEADER  ENDHEADER
     my $call = undef;      my $call = undef;
       my $help = undef;
     my $printmenu = 'yes';      my $printmenu = 'yes';
     foreach my $option (@Options) {      foreach my $option (@Options) {
         if ($option->{'action'} eq $ENV{'form.action'}) {          if ($option->{'action'} eq $env{'form.action'}) {
             $call = $option->{'subroutine'};              $call = $option->{'subroutine'};
             $printmenu = $option->{'printmenu'};              $printmenu = $option->{'printmenu'};
             if (exists($option->{'breadcrumb'})) {              if (exists($option->{'breadcrumb'})) {
                 &Apache::lonhtmlcommon::add_breadcrumb                  &Apache::lonhtmlcommon::add_breadcrumb
                     ($option->{'breadcrumb'});                      ($option->{'breadcrumb'});
             }              }
       $help=$option->{'help'};
         }          }
     }      }
     $r->print(&Apache::loncommon::bodytag('Change Preferences'));      $r->print(&Apache::loncommon::bodytag('Change Preferences'));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs      $r->print(&Apache::lonhtmlcommon::breadcrumbs
               (undef,'Change Preferences'));                (undef,'Change Preferences',$help));
     if (defined($call)) {      if (defined($call)) {
         $call->($r);          $call->($r);
     }      }
     if ($printmenu eq 'yes') {      if (($printmenu eq 'yes') && (!$env{'form.returnurl'})) {
         my $optionlist = '<table cellpadding="5">';          my $optionlist = '<table cellpadding="5">';
         if ($ENV{'user.name'} =~           if ($env{'user.name'} =~ 
                          /^(albertel|kortemey|korte|hallmat3|turtle)$/                           /^(albertel|kortemey|fox|foxr|korte|hallmat3|turtle|raeburn)$/
             ) {              ) {
             push (@Options,({ action => 'debugtoggle',              push (@Options,({ action => 'debugtoggle',
                               linktext => 'Toggle Debug Messages',                                linktext => 'Toggle Debug Messages',
                               text => 'Current Debug status is -'.                                text => 'Current Debug status is -'.
                                   $ENV{'user.debug'}.'-.',                                    $env{'user.debug'}.'-.',
                               href => '/adm/preferences',                                href => '/adm/preferences',
                               printmenu => 'yes',                                printmenu => 'yes',
                               subroutine => \&toggle_debug,                                subroutine => \&toggle_debug,
Line 794  ENDHEADER Line 1292  ENDHEADER
                 $optiontext .=                   $optiontext .= 
                     '<a href="'.$option->{'href'}.                      '<a href="'.$option->{'href'}.
                     '?action='.$option->{'action'}.'">'.                      '?action='.$option->{'action'}.'">'.
                     $option->{'linktext'}.'</a>';                      &mt($option->{'linktext'}).'</a>';
             }              }
             if (exists($option->{'text'})) {              if (exists($option->{'text'})) {
                 $optiontext .= ' '.$option->{'text'};                  $optiontext .= ' '.&mt($option->{'text'});
             }              }
             if ($optiontext ne '') {              if ($optiontext ne '') {
                 $optiontext = '<font size="+1">'.$optiontext.'</font>';                   $optiontext = '<font size="+1">'.$optiontext.'</font>'; 
Line 814  ENDHEADER Line 1312  ENDHEADER
         }          }
         $optionlist .= '</table>';          $optionlist .= '</table>';
         $r->print($optionlist);          $r->print($optionlist);
       } elsif ($env{'form.returnurl'}) {
    $r->print('<br /><a href="'.$env{'form.returnurl'}.'"><font size="+1">'.
     &mt('Return').'</font></a>');
     }      }
     $r->print(<<ENDFOOTER);      $r->print(&Apache::loncommon::endbodytag().'</html>');
 </body>  
 </html>  
 ENDFOOTER  
     return OK;      return OK;
 }  }
   
 sub toggle_debug {  sub toggle_debug {
     if ($ENV{'user.debug'}) {      if ($env{'user.debug'}) {
         &Apache::lonnet::delenv('user\.debug');          &Apache::lonnet::delenv('user\.debug');
     } else {      } else {
         &Apache::lonnet::appenv('user.debug' => 1);          &Apache::lonnet::appenv('user.debug' => 1);
Removed from v.1.38  
changed lines
  Added in v.1.69.2.1

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