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

Diff for /loncom/interface/lonpreferences.pm between versions 1.196.4.18 and 1.196.4.21

version 1.196.4.18, 2016/08/05 20:47:30 version 1.196.4.21, 2016/09/16 22:00:55
Line 1348  sub jscript_send { Line 1348  sub jscript_send {
         uextkey=this.document.client.elements.ukey_cpass.value;          uextkey=this.document.client.elements.ukey_cpass.value;
         lextkey=this.document.client.elements.lkey_cpass.value;          lextkey=this.document.client.elements.lkey_cpass.value;
         initkeys();          initkeys();
           this.document.pserver.elements.currentpass.value =
         this.document.pserver.elements.currentpass.value              getCrypted(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.pserver.elements.newpass_1.value          this.document.pserver.elements.newpass_1.value
             =crypted(this.document.client.elements.newpass_1.value);              =getCrypted(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.pserver.elements.newpass_2.value          this.document.pserver.elements.newpass_2.value
             =crypted(this.document.client.elements.newpass_2.value);              =getCrypted(this.document.client.elements.newpass_2.value);
 |;  |;
     if ($caller eq 'reset_by_email') {      if ($caller eq 'reset_by_email') {
         $output .= qq|          $output .= qq|
Line 1377  sub jscript_send { Line 1374  sub jscript_send {
     $ output .= qq|      $ output .= qq|
         this.document.pserver.submit();          this.document.pserver.submit();
     }      }
   
 </script>  </script>
 |;  |;
 }  }
Line 1402  sub client_form { Line 1400  sub client_form {
                   .&Apache::lonhtmlcommon::row_closure()                    .&Apache::lonhtmlcommon::row_closure()
                   .&Apache::lonhtmlcommon::row_title(                    .&Apache::lonhtmlcommon::row_title(
                        '<label for="uname">'.$lt{'username'}.'</label>')                         '<label for="uname">'.$lt{'username'}.'</label>')
                   .'<input type="text" name="uname" size="15" />'                    .'<input type="text" name="uname" size="20" />'
                   .'<input type="hidden" name="currentpass" value="'.$currentpass.'" />'                    .'<input type="hidden" name="currentpass" value="'.$currentpass.'" />'
                   .&Apache::lonhtmlcommon::row_closure()                    .&Apache::lonhtmlcommon::row_closure()
                   .&Apache::lonhtmlcommon::row_title(                    .&Apache::lonhtmlcommon::row_title(
Line 1412  sub client_form { Line 1410  sub client_form {
     } else {      } else {
         $output .= &Apache::lonhtmlcommon::row_title(          $output .= &Apache::lonhtmlcommon::row_title(
                        '<label for="currentpass">'.$lt{'currentpass'}.'</label>')                         '<label for="currentpass">'.$lt{'currentpass'}.'</label>')
                   .'<input type="password" name="currentpass" size="10"/>'                    .'<input type="password" name="currentpass" size="20"/>'
                   .&Apache::lonhtmlcommon::row_closure();                    .&Apache::lonhtmlcommon::row_closure();
     }      }
     $output .= &Apache::lonhtmlcommon::row_title(      $output .= &Apache::lonhtmlcommon::row_title(
                    '<label for="newpass_1">'.$lt{'newpass'}.'</label>')                     '<label for="newpass_1">'.$lt{'newpass'}.'</label>')
               .'<input type="password" name="newpass_1" size="10" />'                .'<input type="password" name="newpass_1" size="20" />'
               .&Apache::lonhtmlcommon::row_closure()                .&Apache::lonhtmlcommon::row_closure()
               .&Apache::lonhtmlcommon::row_title(                .&Apache::lonhtmlcommon::row_title(
                    '<label for="newpass_2">'.$lt{'confirmpass'}.'</label>')                     '<label for="newpass_2">'.$lt{'confirmpass'}.'</label>')
               .'<input type="password" name="newpass_2" size="10" />'                .'<input type="password" name="newpass_2" size="20" />'
               .&Apache::lonhtmlcommon::row_closure(1)                .&Apache::lonhtmlcommon::row_closure(1)
               .&Apache::lonhtmlcommon::end_pick_box();                .&Apache::lonhtmlcommon::end_pick_box();
     $output .= '<p><input type="button" value="'.$lt{'changepass'}.'" onclick="send();" /></p>'      $output .= '<p><input type="button" value="'.$lt{'changepass'}.'" onclick="send();" /></p>'
Line 1862  sub verify_and_change_coursepage { Line 1860  sub verify_and_change_coursepage {
     &print_main_menu($r,$message);      &print_main_menu($r,$message);
 }  }
   
   sub author_space_settings {
       my $r = shift;
       &Apache::lonhtmlcommon::add_breadcrumb(
               {   href => '/adm/preferences?action=authorsettings',
                   text => 'Authoring Space Settings'});
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
       my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
       if (keys(%author_roles) > 0) {
               $r->print(Apache::loncommon::start_page('Authoring Space Settings'));
               $r->print(Apache::lonhtmlcommon::breadcrumbs('Authoring Space Settings'));
               my %userenv = &Apache::lonnet::get('environment',['nocodemirror']);
               my $constchecked='';
               if ($env{'environment.nocodemirror'}) {
                  $constchecked=' checked="checked"';
               }
               my $text=&mt('By default, CodeMirror an editor with advanced functionality for editing code is activated for authors.');
               my $cmoff=&mt('Deactivate CodeMirror. This can improve performance on slow computers and accessibility.');
               my $change=&mt('Save');
               $r->print(<<ENDSCREEN);
           <form name="prefs" action="/adm/preferences" method="post">
           <input type="hidden" name="action" value="change_authoring_settings" />
           $text<br />
           <label><input type="checkbox" name="cmoff"$constchecked />$cmoff</label><br />
           <input type="submit" value="$change" />
           </form>
   ENDSCREEN
       }
   }
   
   sub change_authoring_settings {
       my $r = shift;
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
       my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
       if (keys(%author_roles) > 0) {
               my %ausettings=('environment.nocodemirror' => '');
               if ($env{'form.cmoff'}) { $ausettings{'environment.nocodemirror'}='yes'; }
               &Apache::lonnet::put('environment',\%ausettings);
               &Apache::lonnet::appenv({'environment.nocodemirror' => $ausettings{'environment.nocodemirror'}});
               my $status='';
               if ($ausettings{'environment.nocodemirror'} eq 'yes') {
                   $status=&mt('on');
               } else {
                   $status=&mt('off');
               }
               my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Deactivate CodeMirror in Authoring Space').'</i>','<tt>'.$status.'</tt>'));
               $message=&Apache::loncommon::confirmwrapper($message);
               &print_main_menu($r,$message);
       }
   }
   
 sub lockednameschanger {  sub lockednameschanger {
     my $r = shift;      my $r = shift;
     &Apache::lonhtmlcommon::add_breadcrumb(      &Apache::lonhtmlcommon::add_breadcrumb(
Line 2122  push(@{ $menu[4]->{items} }, { Line 2172  push(@{ $menu[4]->{items} }, {
  });   });
   
     }      }
   
       my %author_coauthor_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
       if (keys(%author_coauthor_roles) > 0) {
           push(@{ $menu[4]->{items} }, {
               linktext => 'Authoring Space Configuration',
               url => '/adm/preferences?action=authorsettings',
               permission => 'F',
               icon => 'course_ini.png',
               linktitle => 'Settings for your authoring space.',
           });
       }
   
     if (&can_toggle_debug()) {      if (&can_toggle_debug()) {
 push(@{ $menu[4]->{items} }, {  push(@{ $menu[4]->{items} }, {
  linktext => 'Toggle Debug Messages (Currently '.($env{'user.debug'} ? 'on)' : 'off)'),   linktext => 'Toggle Debug Messages (Currently '.($env{'user.debug'} ? 'on)' : 'off)'),
Line 2177  sub handler { Line 2239  sub handler {
     }elsif($env{'form.action'} eq 'changepass'){      }elsif($env{'form.action'} eq 'changepass'){
         &passwordchanger($r);          &passwordchanger($r);
     }elsif($env{'form.action'} eq 'verify_and_change_pass'){      }elsif($env{'form.action'} eq 'verify_and_change_pass'){
         &verify_and_change_password($r);          &verify_and_change_password($r,'preferences');
     }elsif($env{'form.action'} eq 'changescreenname'){      }elsif($env{'form.action'} eq 'changescreenname'){
         &screennamechanger($r);          &screennamechanger($r);
     }elsif($env{'form.action'} eq 'verify_and_change_screenname'){      }elsif($env{'form.action'} eq 'verify_and_change_screenname'){
Line 2230  sub handler { Line 2292  sub handler {
         &coursedisplaychanger($r);          &coursedisplaychanger($r);
     }elsif($env{'form.action'} eq 'verify_and_change_coursepage'){      }elsif($env{'form.action'} eq 'verify_and_change_coursepage'){
         &verify_and_change_coursepage($r);          &verify_and_change_coursepage($r);
       }elsif($env{'form.action'} eq 'authorsettings'){
           &author_space_settings($r);
       }elsif($env{'form.action'} eq 'change_authoring_settings'){
           &change_authoring_settings($r);
     }elsif($env{'form.action'} eq 'debugtoggle'){      }elsif($env{'form.action'} eq 'debugtoggle'){
         if (&can_toggle_debug()) {          if (&can_toggle_debug()) {
             &toggle_debug();              &toggle_debug();
Removed from v.1.196.4.18  
changed lines
  Added in v.1.196.4.21

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