--- 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'})) {