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

Diff for /loncom/interface/lonpreferences.pm between versions 1.179.2.1 and 1.179.2.2

version 1.179.2.1, 2009/12/07 04:23:32 version 1.179.2.2, 2010/01/05 22:54:46
Line 1845  if (&Apache::lonnet::usertools_access($u Line 1845  if (&Apache::lonnet::usertools_access($u
 }  }
 my @menu=  my @menu=
     ({ categorytitle=>'Personal Data',      ({ categorytitle=>'Personal Data',
  items =>[          items =>[]
     { linktext => 'Personal Information Page',       },
  url => $aboutmeurl,  
  permission => $permissions{'aboutme'},  
  #help => 'Prefs_About_Me',  
  icon => 'system-users.png',  
  linktitle => 'Edit information about yourself that should be displayed on your public profile.'  
     },  
     { linktext => 'Screen Name',  
  url => '/adm/preferences?action=changescreenname',  
  permission => 'F',  
  #help => 'Prefs_Screen_Name_Nickname',  
  icon => 'preferences-desktop-font.png',  
  linktitle => 'Change the name that is displayed in your posts.'  
     },  
  ]  
     },  
     { categorytitle=>'Page Display Settings',      { categorytitle=>'Page Display Settings',
  items =>[   items =>[
     { linktext => 'Color Scheme',      { linktext => 'Color Scheme',
Line 1871  my @menu= Line 1856  my @menu=
  icon => 'preferences-desktop-theme.png',   icon => 'preferences-desktop-theme.png',
  linktitle => 'Change LON-CAPA default colors.'   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',
Line 1908  my @menu= Line 1885  my @menu=
  icon => 'mail-reply-all.png',   icon => 'mail-reply-all.png',
  linktitle => 'Change messageforwarding or notifications settings.'   linktitle => 'Change messageforwarding or notifications settings.'
     },      },
     { linktext => 'Discussion Display',  
  url => '/adm/preferences?action=changediscussions',  
  permission => 'F',  
  #help => 'Change_Discussion_Display',  
  icon => 'mail-message-new.png',  
  linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.'  
     },  
  ]   ]
     },      },
     { categorytitle=>'Other',      { categorytitle=>'Other',
Line 1922  my @menu= Line 1892  my @menu=
     },      },
     );      );
   
       if (&Apache::lonnet::usertools_access($env{'user.name'},
                                             $env{'user.domain'},'aboutme')) {
           push(@{ $menu[0]->{items} },
                   {   linktext   => 'Personal Information Page',
                       url        => $aboutmeurl,
                       permission => $permissions{'aboutme'},
                       #help      => 'Prefs_About_Me',
                       icon       => 'system-users.png',
                       linktitle  => 'Edit information about yourself that should be displayed on your public profile.'
                   });
       }
   
       unless ($env{'user.domain'} eq 'gcitest') {
           push(@{ $menu[0]->{items} },
               {   linktext => 'Screen Name',
                   url => '/adm/preferences?action=changescreenname',
                   permission => 'F',
                   #help => 'Prefs_Screen_Name_Nickname',
                   icon => 'preferences-desktop-font.png',
                   linktitle => 'Change the name that is displayed in your posts.'
               });
       }
   
     if ($currentauth =~ /^(unix|internal):/) {      if ($currentauth =~ /^(unix|internal):/) {
 push(@{ $menu[0]->{items} }, {  push(@{ $menu[0]->{items} }, {
  linktext => 'Password',   linktext => 'Password',
Line 1932  push(@{ $menu[0]->{items} }, { Line 1925  push(@{ $menu[0]->{items} }, {
  linktitle => 'Change your password.',   linktitle => 'Change your password.',
  });   });
     }      }
   
       unless ((&Apache::loncommon::needs_gci_custom()) || ($env{'user.domain'} eq 'gcitest')) {
           push(@{ $menu[1]->{items} },
             {   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.'
             });
       }
   
       unless ($env{'user.domain'} eq 'gcitest') {
           push(@{ $menu[3]->{items} },
               {   linktext => 'Discussion Display',
                   url => '/adm/preferences?action=changediscussions',
                   permission => 'F',
                   #help => 'Change_Discussion_Display',
                   icon => 'mail-message-new.png',
                   linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.'
               });
       }
   
     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 1944  push(@{ $menu[4]->{items} }, { Line 1960  push(@{ $menu[4]->{items} }, {
  });   });
     }      }
   
     if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})      unless ((&Apache::loncommon::needs_gci_custom()) || ($env{'user.domain'} eq 'gcitest')) { 
  || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'          if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})
     .$env{'request.course.sec'})) {      || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'
             .$env{'request.course.sec'})) {
 push(@{ $menu[4]->{items} }, {  push(@{ $menu[4]->{items} }, {
  linktext => 'Course Initialization',   linktext => 'Course Initialization',
  url => '/adm/preferences?action=changecourseinit',   url => '/adm/preferences?action=changecourseinit',
Line 1956  push(@{ $menu[4]->{items} }, { Line 1973  push(@{ $menu[4]->{items} }, {
  linktitle => 'Set the default page to be displayed when you select a course role.',   linktitle => 'Set the default page to be displayed when you select a course role.',
  });   });
   
           }
     }      }
     if (&can_toggle_debug()) {      if (&can_toggle_debug()) {
 push(@{ $menu[4]->{items} }, {  push(@{ $menu[4]->{items} }, {
Line 1966  push(@{ $menu[4]->{items} }, { Line 1984  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'));
Removed from v.1.179.2.1  
changed lines
  Added in v.1.179.2.2

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