loncom/interface/lonviewcoauthors.pm - diff

Return to lonviewcoauthors.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2024/05/24 15:27:59	version 1.6, 2024/08/31 21:00:44
Line 401 sub print_coauthors {	Line 401 sub print_coauthors {
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') {