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

Diff for /loncom/interface/lonpreferences.pm between versions 1.214 and 1.215

version 1.214, 2014/12/12 14:32:09 version 1.215, 2015/01/19 15:36:01
Line 1876  sub verify_and_change_coursepage { Line 1876  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 is activated for authors.');
               my $cmoff=&mt('Deactivate Codemirror. This can improve the performance on slow computers.');
               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 2117  push(@{ $menu[4]->{items} }, { Line 2169  push(@{ $menu[4]->{items} }, {
  });   });
   
     }      }
   
       my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
       if (keys(%author_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 2225  sub handler { Line 2289  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.214  
changed lines
  Added in v.1.215

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