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

Diff for /loncom/interface/lonpreferences.pm between versions 1.125.6.1 and 1.125.6.2

version 1.125.6.1, 2009/09/16 20:49:18 version 1.125.6.2, 2009/09/16 21:04:27
Line 1806  sub handler { Line 1806  sub handler {
                       printmenu => 'yes',                        printmenu => 'yes',
                       subroutine => \&verify_and_change_colors,                        subroutine => \&verify_and_change_colors,
                       }));                        }));
     push (@Options,({ action => 'changelanguages',      if ($env{'user.adv'}) {
           push (@Options,({ action => 'changelanguages',
                       linktext => 'Change Language Preferences',                        linktext => 'Change Language Preferences',
                       href => '/adm/preferences',                        href => '/adm/preferences',
       help => 'Prefs_Language',        help => 'Prefs_Language',
Line 1822  sub handler { Line 1823  sub handler {
                       printmenu => 'yes',                        printmenu => 'yes',
                       subroutine=>\&verify_and_change_languages, }                        subroutine=>\&verify_and_change_languages, }
                     ));                      ));
       }
     push (@Options,({ action => 'changewysiwyg',      push (@Options,({ action => 'changewysiwyg',
                       linktext => 'Change WYSIWYG Editor Preferences',                        linktext => 'Change WYSIWYG Editor Preferences',
                       href => '/adm/preferences',                        href => '/adm/preferences',
Line 1853  sub handler { Line 1855  sub handler {
                       printmenu => 'yes',                        printmenu => 'yes',
                       subroutine => \&verify_and_change_discussion, }                        subroutine => \&verify_and_change_discussion, }
                     ));                      ));
       if ($env{'user.adv'}) {
     my $role = ($env{'user.adv'} ? 'Roles' : 'Course');          my $role = ($env{'user.adv'} ? 'Roles' : 'Course');
     push (@Options,({ action   => 'changerolespref',          push (@Options,({ action   => 'changerolespref',
                       linktext => 'Change '.$role.' Page Preferences',                        linktext => 'Change '.$role.' Page Preferences',
                       href     => '/adm/preferences',                        href     => '/adm/preferences',
                       subroutine => \&rolesprefchanger,                        subroutine => \&rolesprefchanger,
Line 1871  sub handler { Line 1873  sub handler {
                       printmenu => 'yes',                        printmenu => 'yes',
                       }));                        }));
   
     push (@Options,({ action   => 'changetexenginepref',          push (@Options,({ action   => 'changetexenginepref',
                       linktext => 'Change How Math Equations Are Displayed',                        linktext => 'Change How Math Equations Are Displayed',
                       href     => '/adm/preferences',                        href     => '/adm/preferences',
                       subroutine => \&texenginechanger,                        subroutine => \&texenginechanger,
Line 1887  sub handler { Line 1889  sub handler {
                       printmenu => 'yes',                        printmenu => 'yes',
                       }));                        }));
   
     if ($env{'environment.remote'} eq 'off') {          if ($env{'environment.remote'} eq 'off') {
  push (@Options,({ action => 'launch',      push (@Options,({ action => 'launch',
   linktext => 'Launch Remote Control',          linktext => 'Launch Remote Control',
   href => '/adm/remote?url=/adm/preferences',        href => '/adm/remote?url=/adm/preferences',
       }));            }));
     } else {          } else {
  push (@Options,({ action => 'collapse',      push (@Options,({ action => 'collapse',
   linktext => 'Collapse Remote Control',    linktext => 'Collapse Remote Control',
   href => '/adm/remote?url=/adm/preferences',    href => '/adm/remote?url=/adm/preferences',
       }));            }));
           }
     }      }
   
     push (@Options,({ action   => 'changeicons',      push (@Options,({ action   => 'changeicons',
Line 1914  sub handler { Line 1917  sub handler {
                             text => 'Change Main Menu'},                              text => 'Change Main Menu'},
                       printmenu => 'yes',                        printmenu => 'yes',
                       }));                        }));
       if ($env{'user.adv'}) {
     push (@Options,({ action   => 'changeclicker',          push (@Options,({ action   => 'changeclicker',
                       linktext => 'Register Response Devices ("Clickers")',                        linktext => 'Register Response Devices ("Clickers")',
                       href     => '/adm/preferences',                        href     => '/adm/preferences',
                       subroutine => \&clickerchanger,                        subroutine => \&clickerchanger,
Line 1930  sub handler { Line 1933  sub handler {
                             text => 'Register Clicker'},                              text => 'Register Clicker'},
                       printmenu => 'yes',                        printmenu => 'yes',
                       }));                        }));
     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 (@Options,({ action   => 'changedomcoord',              push (@Options,({ action   => 'changedomcoord',
                         linktext => 'Restrict Domain Coordinator Access',                          linktext => 'Restrict Domain Coordinator Access',
                         href     => '/adm/preferences',                          href     => '/adm/preferences',
                         subroutine => \&domcoordchanger,                          subroutine => \&domcoordchanger,
Line 1947  sub handler { Line 1950  sub handler {
                               text => 'Restrict Domain Coordinator Access'},                                text => 'Restrict Domain Coordinator Access'},
                         printmenu => 'yes',                          printmenu => 'yes',
                       }));                        }));
           }
     }      }
   
     push (@Options,({ action   => 'lockwarning',      push (@Options,({ action   => 'lockwarning',
Removed from v.1.125.6.1  
changed lines
  Added in v.1.125.6.2

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