--- loncom/auth/lonroles.pm 2009/10/26 15:54:20 1.235 +++ loncom/auth/lonroles.pm 2009/10/30 16:31:30 1.238 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.235 2009/10/26 15:54:20 bisitz Exp $ +# $Id: lonroles.pm,v 1.238 2009/10/30 16:31:30 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -704,10 +704,11 @@ ENDHEADER $refresh = $now; &Apache::lonnet::appenv({'user.refresh.time' => $refresh}); if ($env{'user.adv'}) { - $r->print( - '

'); + $r->print(' />'.&mt('Show all roles').'' + .' ' + .'

'); } else { if ($countactive > 0) { &queued_selfenrollment($r); @@ -1109,7 +1110,7 @@ sub roletable_headers { } sub roletypes { - my @types = ('Domain','Construction Space','Course','Unavailable','System'); + my @types = ('Domain','Construction Space','Course','Community','Unavailable','System'); return @types; } @@ -1173,7 +1174,7 @@ sub findcourse_advice { } $r->print('

'.&mt('Self-Enrollment').'

'. '

'.&mt('The [_1]Course/Community Catalog[_2] provides information about all [_3] classes for which LON-CAPA courses have been created, as well as any communities in the domain.','','',$domdesc).'
'); - $r->print(&mt('You can search the Course/Community Catalog for courses and communities which permit self-enrollment, if you would like to enroll in one.').'

'); + $r->print(&mt('You can search for courses and communities which permit self-enrollment, if you would like to enroll in one.').'

'); &queued_selfenrollment($r); return; } @@ -1188,14 +1189,20 @@ sub requestcourse_advice { my ($types,$typename) = &Apache::loncommon::course_types(); if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) { $r->print('

'.&mt('Request creation of a course or community').'

'. - '

'.&mt('You have rights to create courses and/or communities in the following domain(s):').'