--- loncom/auth/lonroles.pm 2009/12/25 00:26:16 1.240.2.6 +++ loncom/auth/lonroles.pm 2010/01/06 22:40:26 1.240.2.8 @@ -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.8 2010/01/06 22:40:26 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -728,7 +728,7 @@ ENDHEADER &Apache::loncommon::end_page(); return OK; } - my %courses = &Apache::loncommon::existing_gcitest_courses(); + my %courses = &Apache::loncommon::existing_gcitest_courses('cc'); $env{'browser.interface'}='faketextual'; $env{'environment.remote'}='off'; my $numcourses = keys(%courses); @@ -768,19 +768,21 @@ ENDSCRIPT &queued_selfenrollment($r); my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description'); my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&'); - $r->print( - '
'
- .&mt('[_1]Visit the [_2]Course/Community Catalog[_3]'
- .' to view all [_4] LON-CAPA courses and communities.'
- ,''
- ,''
- ,'',$domdesc)
- .'
'
- .&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(
+ '
'
+ .&mt('[_1]Visit the [_2]Course/Community Catalog[_3]'
+ .' to view all [_4] LON-CAPA courses and communities.'
+ ,''
+ ,''
+ ,'',$domdesc)
+ .'
'
+ .&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.'
,'','')
- .'