--- loncom/interface/lonpreferences.pm 2010/09/19 14:00:49 1.179.2.3 +++ loncom/interface/lonpreferences.pm 2010/12/05 22:00:00 1.179.2.5 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.179.2.3 2010/09/19 14:00:49 raeburn Exp $ +# $Id: lonpreferences.pm,v 1.179.2.5 2010/12/05 22:00:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1006,10 +1006,10 @@ sub verify_and_change_msgforward { $msdomain = &LONCAPA::clean_domain($msdomain); if (($msuser) && ($msdomain)) { if (&Apache::lonnet::homeserver($msuser,$msdomain) ne 'no_host') { - $newscreen.=$msuser.':'.$msdomain.','; - } else { - $message.= &mt('No such user: ').''.$msuser.':'.$msdomain.'
'; - } + $newscreen.=$msuser.':'.$msdomain.','; + } else { + $message.= &mt('No such user: ').''.$msuser.':'.$msdomain.'
'; + } } } $newscreen=~s/\,$//; @@ -1383,7 +1383,7 @@ sub client_form { .&Apache::lonhtmlcommon::row_closure() .&Apache::lonhtmlcommon::row_title( '') - .'' + .'' .'' .&Apache::lonhtmlcommon::row_closure() .&Apache::lonhtmlcommon::row_title( @@ -1909,7 +1909,7 @@ my @menu= }); } - unless ($env{'user.domain'} eq 'gcitest') { + unless ($env{'user.domain'} =~ /^\w+citest$/) { push(@{ $menu[0]->{items} }, { linktext => 'Screen Name', url => '/adm/preferences?action=changescreenname', @@ -1931,7 +1931,7 @@ 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} }, { linktext => 'Menu Display', url => '/adm/preferences?action=changeicons', @@ -1942,7 +1942,7 @@ push(@{ $menu[0]->{items} }, { }); } - unless ($env{'user.domain'} eq 'gcitest') { + unless ($env{'user.domain'} =~ /^\w+citest$/) { push(@{ $menu[3]->{items} }, { linktext => 'Discussion Display', url => '/adm/preferences?action=changediscussions', @@ -1965,7 +1965,7 @@ 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'}) || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/' .$env{'request.course.sec'})) {