[LON-CAPA-cvs] cvs: loncom(GCI_3) /auth lonroles.pm

[raeburn]

raeburn		Tue Jan  5 15:30:25 2010 EDT

  Modified files:              (Branch: GCI_3)
    /loncom/auth	lonroles.pm 
  Log:
  - Customization for GCI_3.
    - Exclude Course Catalog link and advice on missing courses and 
      self-enrollment for students in Concept Courses.
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.240.2.6 loncom/auth/lonroles.pm:1.240.2.7
--- loncom/auth/lonroles.pm:1.240.2.6	Fri Dec 25 00:26:16 2009
+++ loncom/auth/lonroles.pm	Tue Jan  5 15:30:25 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.240.2.6 2009/12/25 00:26:16 raeburn Exp $
+# $Id: lonroles.pm,v 1.240.2.7 2010/01/05 15:30:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -768,19 +768,21 @@
             &queued_selfenrollment($r);
             my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');
             my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&'); 
-            $r->print(
-                '<p>'
-               .&mt('[_1]Visit the [_2]Course/Community Catalog[_3]'
-                   .' to view all [_4] LON-CAPA courses and communities.'
-                   ,'<b>'
-                   ,'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">'
-                   ,'</a></b>',$domdesc)
-               .'<br />'
-               .&mt('If a course or community is [_1]not[_2] in your list of current courses and communities below,'
+            unless ($env{'user.domain'} eq 'gcitest') {
+                $r->print(
+                    '<p>'
+                   .&mt('[_1]Visit the [_2]Course/Community Catalog[_3]'
+                       .' to view all [_4] LON-CAPA courses and communities.'
+                       ,'<b>'
+                       ,'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">'
+                       ,'</a></b>',$domdesc)
+                   .'<br />'
+                   .&mt('If a course or community is [_1]not[_2] in your list of current courses and communities below,'
                    .' you may be able to enroll if self-enrollment is permitted.'
                    ,'<b>','</b>')
-               .'</p>'
-            );
+                   .'</p>'
+                );
+            }
         }
     }
 
@@ -791,8 +793,10 @@
 	} else {
 	    $r->print('<h2>'.&mt('Currently no active roles, courses or communities').'</h2>');
 	}
-        &findcourse_advice($r);
-        &requestcourse_advice($r); 
+        unless ($env{'user.domain'} eq 'gcitest') {
+            &findcourse_advice($r);
+            &requestcourse_advice($r);
+        }
 	$r->print('</form>');
         if ($countfuture) {
             $r->print(&mt('The following [quant,_1,role,roles] will become active in the future:',$countfuture));