version 1.4, 2023/11/05 20:06:04
|
version 1.5, 2024/05/24 15:27:59
|
Line 397 sub print_coauthors {
|
Line 397 sub print_coauthors {
|
@showroles = ('ca','aa'); |
@showroles = ('ca','aa'); |
} |
} |
my %coauthors = &Apache::lonnet::get_my_roles($auname,$audom,undef,undef, |
my %coauthors = &Apache::lonnet::get_my_roles($auname,$audom,undef,undef, |
\@showroles,[$audom]); |
\@showroles); |
my (%userinfo,%showuser); |
my (%userinfo,%showuser); |
foreach my $item (keys(%coauthors)) { |
foreach my $item (keys(%coauthors)) { |
my ($username,$domain,$userrole) = split(/:/,$item); |
my ($username,$domain,$userrole) = split(/:/,$item); |