[LON-CAPA-cvs] cvs: loncom(GCI_3) /interface lonpreferences.pm

[raeburn]

raeburn		Sun Dec  5 22:00:00 2010 EDT

  Modified files:              (Branch: GCI_3)
    /loncom/interface	lonpreferences.pm 
  Log:
  - Customization for GCI_3.
    - Suport for multiple Concept Inventories.
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.179.2.4 loncom/interface/lonpreferences.pm:1.179.2.5
--- loncom/interface/lonpreferences.pm:1.179.2.4	Sun Sep 19 14:22:40 2010
+++ loncom/interface/lonpreferences.pm	Sun Dec  5 22:00:00 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.179.2.4 2010/09/19 14:22:40 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
 #
@@ -1909,7 +1909,7 @@
                 });
     }
 
-    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 @@
 	});
     }
 
-    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 @@
           });
     }
 
-    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 @@
 	});
     }
 
-    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'})) {