loncom/interface/lonviewcoauthors.pm - diff

Return to lonviewcoauthors.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.4, 2023/11/05 20:06:04	version 1.6, 2024/08/31 21:00:44
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);
	next if (($username eq '') && ($domain eq''));
my ($start,$end) = split(/:/,$coauthors{$item});	my ($start,$end) = split(/:/,$coauthors{$item});
next if ($start eq '-1' && $end eq '-1');	next if ($start eq '-1' && $end eq '-1');
if (ref($userinfo{$username.':'.$domain}) eq 'HASH') {	if (ref($userinfo{$username.':'.$domain}) eq 'HASH') {