[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.4 and 1.179.2.5

version 1.179.2.4, 2010/09/19 14:22:40 version 1.179.2.5, 2010/12/05 22:00:00
Line 1909  my @menu= Line 1909  my @menu=
                 });                  });
     }      }
   
     unless ($env{'user.domain'} eq 'gcitest') {      unless ($env{'user.domain'} =~ /^\w+citest$/) {
         push(@{ $menu[0]->{items} },          push(@{ $menu[0]->{items} },
             {   linktext => 'Screen Name',              {   linktext => 'Screen Name',
                 url => '/adm/preferences?action=changescreenname',                  url => '/adm/preferences?action=changescreenname',
Line 1931  push(@{ $menu[0]->{items} }, { Line 1931  push(@{ $menu[0]->{items} }, {
  });   });
     }      }
   
     unless ((&Apache::loncommon::needs_gci_custom()) || ($env{'user.domain'} eq 'gcitest')) {      unless ((&Apache::loncommon::needs_gci_custom()) || ($env{'user.domain'} =~ /^\w+citest$/)) {
         push(@{ $menu[1]->{items} },          push(@{ $menu[1]->{items} },
           {   linktext => 'Menu Display',            {   linktext => 'Menu Display',
               url => '/adm/preferences?action=changeicons',                url => '/adm/preferences?action=changeicons',
Line 1942  push(@{ $menu[0]->{items} }, { Line 1942  push(@{ $menu[0]->{items} }, {
           });            });
     }      }
   
     unless ($env{'user.domain'} eq 'gcitest') {      unless ($env{'user.domain'} =~ /^\w+citest$/) {
         push(@{ $menu[3]->{items} },          push(@{ $menu[3]->{items} },
             {   linktext => 'Discussion Display',              {   linktext => 'Discussion Display',
                 url => '/adm/preferences?action=changediscussions',                  url => '/adm/preferences?action=changediscussions',
Line 1965  push(@{ $menu[4]->{items} }, { Line 1965  push(@{ $menu[4]->{items} }, {
  });   });
     }      }
   
     unless ((&Apache::loncommon::needs_gci_custom()) || ($env{'user.domain'} eq 'gcitest')) {       unless ((&Apache::loncommon::needs_gci_custom()) || ($env{'user.domain'} =~ /^\w+citest/)) { 
         if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})          if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})
     || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'      || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'
           .$env{'request.course.sec'})) {            .$env{'request.course.sec'})) {
Removed from v.1.179.2.4  
changed lines
  Added in v.1.179.2.5

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