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

Diff for /loncom/interface/lonpreferences.pm between versions 1.182 and 1.186.2.2

version 1.182, 2010/01/07 21:55:17 version 1.186.2.2, 2010/05/27 15:55:29
Line 117  sub wysiwygchanger { Line 117  sub wysiwygchanger {
     my $switchon=&mt('Enable WYSIWYG editor');      my $switchon=&mt('Enable WYSIWYG editor');
     my $warning='';      my $warning='';
     if ($env{'user.adv'}) {      if ($env{'user.adv'}) {
        $warning.="<p>".&mt("The WYSIWYG editor only supports simple HTML and is in many cases unsuited for advanced authoring. In a number of cases, it may destroy advanced authoring involving LaTeX and script function calls.")."</p>";         $warning.='<p class="LC_warning">'.&mt("The WYSIWYG editor only supports simple HTML and is in many cases unsuited for advanced authoring. In a number of cases, it may destroy advanced authoring involving LaTeX and script function calls.")."</p>";
     }      }
     $r->print(<<ENDLSCREEN);      $r->print(<<ENDLSCREEN);
 <form name="prefs" action="/adm/preferences" method="post">  <form name="prefs" action="/adm/preferences" method="post">
Line 191  sub verify_and_change_languages { Line 191  sub verify_and_change_languages {
     if ($newlanguage) {      if ($newlanguage) {
         &Apache::lonnet::put('environment',{'languages' => $newlanguage});          &Apache::lonnet::put('environment',{'languages' => $newlanguage});
         &Apache::lonnet::appenv({'environment.languages' => $newlanguage});          &Apache::lonnet::appenv({'environment.languages' => $newlanguage});
         $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Preferred language').'</i>','<tt>"'.$newlanguage.'"</tt>.'));          $message=&Apache::lonhtmlcommon::confirm_success(
               &mt('Set [_1] to [_2]',
                   '<i>'.&mt('Preferred language').'</i>',
                   '<tt>"'.$newlanguage.'"</tt>.'))
              .'<br />'
              .&mt('The change will become active on the next page.');
     } else {      } else {
         &Apache::lonnet::del('environment',['languages']);          &Apache::lonnet::del('environment',['languages']);
         &Apache::lonnet::delenv('environment.languages');          &Apache::lonnet::delenv('environment.languages');
Line 584  sub verify_and_change_screenname { Line 589  sub verify_and_change_screenname {
 }  }
   
 ################################################################  ################################################################
 #                     Icon Subroutines                         #  
 ################################################################  
 sub iconchanger {  
     my $r = shift;  
     &Apache::lonhtmlcommon::add_breadcrumb(  
     { href => '/adm/preferences?action=changeicons',  
                 text => 'Change Main Menu'});  
     $r->print(Apache::loncommon::start_page('Page Display Settings'));  
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Main Menu'));  
   
     my $user       = $env{'user.name'};  
     my $domain     = $env{'user.domain'};  
     my %userenv = &Apache::lonnet::get  
         ('environment',['icons']);  
     my $iconic='checked="checked"';  
     my $classic='';  
     my $onlyicon='';  
     if ($userenv{'icons'} eq 'classic') {  
        $classic='checked="checked"';  
        $iconic='';  
     }  
     if ($userenv{'icons'} eq 'iconsonly') {  
        $onlyicon='checked="checked"';  
        $iconic='';  
     }  
     my $useicons=&mt('Use icons and text');  
     my $usebuttons=&mt('Use buttons and text');  
     my $useicononly=&mt('Use icons only');  
     my $change=&mt('Save');  
     $r->print(<<ENDSCREEN);  
 <form name="prefs" action="/adm/preferences" method="post">  
 <input type="hidden" name="action" value="verify_and_change_icons" />  
 <label><input type="radio" name="menumode" value="iconic" $iconic /> $useicons</label><br />  
 <label><input type="radio" name="menumode" value="classic" $classic /> $usebuttons</label><br />  
 <label><input type="radio" name="menumode" value="iconsonly" $onlyicon /> $useicononly</label><br />  
 <input type="submit" value="$change" />  
 </form>  
 ENDSCREEN  
 }  
   
 sub verify_and_change_icons {  
     my $r = shift;  
     my $user       = $env{'user.name'};  
     my $domain     = $env{'user.domain'};  
     my $newicons   = $env{'form.menumode'};  
   
     &Apache::lonnet::put('environment',{'icons' => $newicons});  
     &Apache::lonnet::appenv({'environment.icons' => $newicons});  
     my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Menu Display').'</i>','<tt>'.$newicons.'</tt>'));  
     $message=&Apache::loncommon::confirmwrapper($message);  
     &print_main_menu($r, $message);  
 }  
   
 ################################################################  
 #                     Clicker Subroutines                      #  #                     Clicker Subroutines                      #
 ################################################################  ################################################################
   
Line 1837  sub verify_and_change_coursepage { Line 1788  sub verify_and_change_coursepage {
     &print_main_menu($r,$message);      &print_main_menu($r,$message);
 }  }
   
   sub lockednameschanger {
       my $r = shift;
       &Apache::lonhtmlcommon::add_breadcrumb(
               {   href => '/adm/preferences?action=changelockednames',
                   text => 'Automatic name changes'});
       $r->print(Apache::loncommon::start_page('Automatic name changes'));
       $r->print(Apache::lonhtmlcommon::breadcrumbs('Allow/disallow name updates'));
       my %userenv = &Apache::lonnet::get('environment',['lockedname']);
       my $lockedname='';
       if (&can_toggle_namelocking()) {
           if ($userenv{'lockedname'}) {
               $lockedname = ' checked="checked"';
           }
           my %updateable;
           my %domconfig =
               &Apache::lonnet::get_dom('configuration',['autoupdate'],$env{'user.domain'});
           if (ref($domconfig{'autoupdate'}) eq 'HASH') {
               if ($domconfig{'autoupdate'}{'run'}) {
                   my @inststatuses = split(':',$env{'environment.inststatus'});
                   unless (@inststatuses) {
                       @inststatuses = ('default');
                   }
                   %updateable = &updateable_userinfo($domconfig{'autoupdate'},\@inststatuses);
               }
           }
           if (keys(%updateable)) {
               my %longnames = &Apache::lonlocal::texthash (
                                   firstname  => 'First Name',
                                   middlename => 'Middle Name',
                                   lastname   => 'Last Name',
                               );
               my $text=&mt('By default, based on your institutional affiliation, your LON-CAPA account can be automatically updated nightly based on directory information from your institution.').'<br />'.&mt('The following may be updated, unless you disallow updates:').
                        '<ul>';
              foreach my $item ('firstname','middlename','lastname') {
                  if ($updateable{$item}) {
                      $text .= '<li>'.$longnames{$item}.'</li>';
                  }
              }
              $text .= '</ul>'; 
              my $locking=&mt('Disallow automatic updates to name information for your LON-CAPA account');
              my $change=&mt('Save');
              $r->print(<<ENDSCREEN);
   <form name="prefs" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_lockednames" />
   $text<br />
   <label><input type="checkbox" value="1" name="lockednames"$lockedname />$locking</label><br />
   <input type="submit" value="$change" />
   </form>
   ENDSCREEN
           } else {
               my $message = &mt('Based on your institutional affiliation no name information is automatically updated for your LON-CAPA account.');
               &print_main_menu($r,$message);
           }
       } else {
           my $message = &mt('You are not permitted to set a user preference for automatic name updates for your LON-CAPA account.');
           &print_main_menu($r,$message);
       }
   }
   
   sub verify_and_change_lockednames {
       my $r = shift;
       my $message;
       if (&can_toggle_namelocking()) {
           my $newlockedname = $env{'form.lockednames'};
           $newlockedname =~ s/\D//g;
           my $currlockedname = $env{'environment.lockedname'};
           if ($newlockedname ne $currlockedname) {
               if ($newlockedname) {
                   if (&Apache::lonnet::put('environment',{lockedname => $newlockedname}) eq 'ok') {
                       &Apache::lonnet::appenv({'environment.lockedname' => $newlockedname});
                   }
               } elsif (&Apache::lonnet::del('environment',['lockedname']) eq 'ok') {
                   &Apache::lonnet::delenv('environment.lockedname');
               }
           }
           my $status='';
           if ($newlockedname) {
               $status=&mt('disallowed');
           } else {
               $status=&mt('allowed');
           }
           $message=&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]','<i>'.&mt('Automatic update of first, middle and last names if institutional directory information indicates changes').'</i>','<tt>'.$status.'</tt>'));
           $message=&Apache::loncommon::confirmwrapper($message);
       }
       &print_main_menu($r,$message);
   }
   
 sub print_main_menu {  sub print_main_menu {
     my ($r, $message) = @_;      my ($r, $message) = @_;
     # Determine current authentication method      # Determine current authentication method
Line 1870  my @menu= Line 1908  my @menu=
     },      },
  ]   ]
     },      },
     { categorytitle=>'Page Display Settings',  
  items =>[  
     { linktext => 'Color Scheme',  
  url => '/adm/preferences?action=changecolors',  
  permission => 'F',  
  #help => 'Change_Colors',  
  icon => 'preferences-desktop-theme.png',  
  linktitle => 'Change LON-CAPA default colors.'  
     },  
     { linktext => 'Menu Display',  
  url => '/adm/preferences?action=changeicons',  
  permission => 'F',  
  #help => '',  
  icon => 'preferences-system-windows.png',  
  linktitle => 'Change whether the menus are displayed with buttons, icons or icons and text.'  
     }  
   
  ]  
     },  
     { categorytitle=>'Content Display Settings',      { categorytitle=>'Content Display Settings',
  items =>[   items =>[
     { linktext => 'Language',      { linktext => 'Language',
Line 1898  my @menu= Line 1917  my @menu=
  icon => 'preferences-desktop-locale.png',   icon => 'preferences-desktop-locale.png',
  linktitle => 'Choose the default language for this user.'   linktitle => 'Choose the default language for this user.'
     },      },
     { linktext => 'WYSIWYG Editor',  
  url => '/adm/preferences?action=changewysiwyg',  
  permission => 'F',  
  #help => '',  
  icon => 'edit-select-all.png',  
  linktitle => 'Enable or disable the WYSIWYG-Editor.'  
     },  
     { linktext => $role.' Page',      { linktext => $role.' Page',
  url => '/adm/preferences?action=changerolespref',   url => '/adm/preferences?action=changerolespref',
  permission => 'F',   permission => 'F',
Line 1921  my @menu= Line 1933  my @menu=
     },      },
  ]   ]
     },      },
       { categorytitle=>'Page Display Settings',
    items =>[
       { linktext => 'Color Scheme',
    url => '/adm/preferences?action=changecolors',
    permission => 'F',
    #help => 'Change_Colors',
    icon => 'preferences-desktop-theme.png',
    linktitle => 'Change LON-CAPA default colors.'
       },
    ]
       },
     { categorytitle=>'Messages &amp; Notifications',      { categorytitle=>'Messages &amp; Notifications',
  items =>[   items =>[
     { linktext => 'Messages &amp; Notifications',      { linktext => 'Messages &amp; Notifications',
Line 1964  push(@{ $menu[0]->{items} }, { Line 1987  push(@{ $menu[0]->{items} }, {
     }      }
     if ($env{'environment.remote'} eq 'off') {      if ($env{'environment.remote'} eq 'off') {
 push(@{ $menu[1]->{items} }, {  push(@{ $menu[1]->{items} }, {
  linktext => 'Launch Remote Control',          linktext => 'Launch Remote Control',
  url => '/adm/remote?url=/adm/preferences&amp;action=launch',          url => '/adm/remote?url=/adm/preferences&amp;action=launch',
  permission => 'F',          permission => 'F',
  #help => '',          #help => '',
  icon => 'remotecontrol.png',          icon => 'remotecontrol.png',
  linktitle => 'Launch the remote control for LON-CAPA.',          linktitle => 'Launch the remote control for LON-CAPA.',
  });          });
     }else{      }else{
 push(@{ $menu[1]->{items} }, {  push(@{ $menu[1]->{items} }, {
  linktext => 'Collapse Remote Control',          linktext => 'Collapse Remote Control',
  url => '/adm/remote?url=/adm/preferences&amp;action=collapse',          url => '/adm/remote?url=/adm/preferences&amp;action=collapse',
  permission => 'F',          permission => 'F',
  #help => '',          #help => '',
  icon => 'remotecontrol.png',          icon => 'remotecontrol.png',
  linktitle => 'Collapse the remote control for LON-CAPA.',          linktitle => 'Collapse the remote control for LON-CAPA.',
  });          });
       }
   
   
       if (&can_toggle_namelocking()) {
           push(@{ $menu[0]->{items} }, {
           linktext => 'Automatic name changes',
           url => '/adm/preferences?action=changelockednames',
           permission => 'F',
           #help => '',
           icon => 'system-lock-screen.png',
           linktitle => 'Allow/disallow propagation of name changes from institutional directory service',
           });
     }      }
   
     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);      my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);
     if (keys(%author_roles) > 0) {      if (keys(%author_roles) > 0) {
 push(@{ $menu[4]->{items} }, {  push(@{ $menu[4]->{items} }, {
Line 2015  push(@{ $menu[4]->{items} }, { Line 2051  push(@{ $menu[4]->{items} }, {
  icon => 'blog.png',   icon => 'blog.png',
  linktitle => 'Toggle Debug Messages.',   linktitle => 'Toggle Debug Messages.',
  });   });
     }         }
   
     $r->print(&Apache::loncommon::start_page('My Space'));      $r->print(&Apache::loncommon::start_page('My Space'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Preferences'));      $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Preferences'));
Line 2086  sub handler { Line 2122  sub handler {
         &texenginechanger($r);          &texenginechanger($r);
     }elsif($env{'form.action'} eq 'verify_and_change_texengine'){      }elsif($env{'form.action'} eq 'verify_and_change_texengine'){
         &verify_and_change_texengine($r);          &verify_and_change_texengine($r);
     }elsif($env{'form.action'} eq 'changeicons'){  
         &iconchanger($r);  
     }elsif($env{'form.action'} eq 'verify_and_change_icons'){  
         &verify_and_change_icons($r);  
     }elsif($env{'form.action'} eq 'changeclicker'){      }elsif($env{'form.action'} eq 'changeclicker'){
         &clickerchanger($r);          &clickerchanger($r);
     }elsif($env{'form.action'} eq 'verify_and_change_clicker'){      }elsif($env{'form.action'} eq 'verify_and_change_clicker'){
Line 2111  sub handler { Line 2143  sub handler {
             &toggle_debug();              &toggle_debug();
         }          }
  &print_main_menu($r);   &print_main_menu($r);
       } elsif ($env{'form.action'} eq 'changelockednames') {
           &lockednameschanger($r);
       } elsif ($env{'form.action'} eq 'verify_and_change_lockednames') {
           &verify_and_change_lockednames($r);
     }      }
   
     # Properly end the HTML page of all preference pages      # Properly end the HTML page of all preference pages
Line 2143  sub can_toggle_debug { Line 2179  sub can_toggle_debug {
     return $can_toggle;      return $can_toggle;
 }  }
   
   sub can_toggle_namelocking {
       my $lockablenames;
       my %domconfig =
           &Apache::lonnet::get_dom('configuration',['autoupdate'],$env{'user.domain'});
       if (ref($domconfig{'autoupdate'}) eq 'HASH') {
           if ($domconfig{'autoupdate'}{'run'}) {
               my @inststatuses = split(':',$env{'environment.inststatus'});
               unless (@inststatuses) {
                   @inststatuses = ('default');
               }
               my %updateable = &updateable_userinfo($domconfig{'autoupdate'},\@inststatuses);
               if ($updateable{'lastname'} || $updateable{'firstname'} ||
                   $updateable{'middlename'}) { 
                   if (ref($domconfig{'autoupdate'}{'lockablenames'}) eq 'ARRAY') {
                       unless (@inststatuses) {
                           @inststatuses = ('default');
                       }
                       foreach my $status (@inststatuses) {
                           if (grep(/^\Q$status\E$/,@{$domconfig{'autoupdate'}{'lockablenames'}})) {
                               $lockablenames = 1;
                               last;
                           }
                       }
                   }
               }
           }
       }
       return $lockablenames;
   }
   
   sub updateable_userinfo {
       my ($autoupdate,$inststatuses) = @_;
       my %updateable;
       return %updateable unless ((ref($autoupdate) eq 'HASH') && 
                                  (ref($inststatuses) eq 'ARRAY'));
       if (ref($autoupdate->{'fields'}) eq 'HASH') {
           foreach my $status (@{$inststatuses}) {
               if (ref($autoupdate->{'fields'}{$status}) eq 'ARRAY') {
                   foreach my $field (@{$autoupdate->{'fields'}{$status}}) {
                       $updateable{$field} = 1;
                   }
               }
           }
       }
       return %updateable;
   }
   
 1;  1;
 __END__  __END__
Removed from v.1.182  
changed lines
  Added in v.1.186.2.2

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