--- loncom/interface/lonuserutils.pm 2009/09/07 13:49:49 1.97.2.2 +++ loncom/interface/lonuserutils.pm 2009/08/28 22:47:07 1.98 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Utility functions for managing LON-CAPA user accounts # -# $Id: lonuserutils.pm,v 1.97.2.2 2009/09/07 13:49:49 raeburn Exp $ +# $Id: lonuserutils.pm,v 1.98 2009/08/28 22:47:07 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2230,7 +2230,7 @@ END END if ($actionselect) { $output .= <<"END"; -
$lt{'ac'} +
$lt{'ac'} $actionselect

 
@@ -2275,7 +2275,7 @@ END } } } - $output .= '
'.$lt{'link'}.''. + $output .= '
'.$lt{'link'}.''. ''; my @linkdests = ('aboutme'); if ($permission->{'cusr'}) { @@ -2286,6 +2286,7 @@ END $env{'request.course.sec'})) { push(@linkdests,'track'); } + $output .= '
'; my $usernamelink = $env{'form.usernamelink'}; if ($usernamelink eq '') { @@ -4845,18 +4846,14 @@ sub roles_by_context { my ($context,$custom) = @_; my @allroles; if ($context eq 'course') { - @allroles = ('st'); - if ($env{'request.role'} =~ m{^dc\./}) { - push(@allroles,'ad'); - } - push(@allroles,('ta','ep','in','cc')); + @allroles = ('st','ad','ta','ep','in','cc'); if ($custom) { push(@allroles,'cr'); } } elsif ($context eq 'author') { @allroles = ('ca','aa'); } elsif ($context eq 'domain') { - @allroles = ('li','ad','dg','sc','au','dc'); + @allroles = ('li','dg','sc','au','dc'); } return @allroles; }