--- loncom/auth/lonroles.pm 2009/12/25 00:26:16 1.240.2.6 +++ loncom/auth/lonroles.pm 2010/01/05 15:30:25 1.240.2.7 @@ -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 @@ 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.' ,'','') - .'

' - ); + .'

' + ); + } } } @@ -791,8 +793,10 @@ ENDSCRIPT } else { $r->print('

'.&mt('Currently no active roles, courses or communities').'

'); } - &findcourse_advice($r); - &requestcourse_advice($r); + unless ($env{'user.domain'} eq 'gcitest') { + &findcourse_advice($r); + &requestcourse_advice($r); + } $r->print(''); if ($countfuture) { $r->print(&mt('The following [quant,_1,role,roles] will become active in the future:',$countfuture));