loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.222, 2024/08/31 20:02:12	version 1.223, 2025/01/12 23:34:20
Line 3714 END	Line 3714 END
foreach my $item (@{$keylist}) {	foreach my $item (@{$keylist}) {
$in{$item} = $sdata->[$index{$item}];	$in{$item} = $sdata->[$index{$item}];
}	}
my $clickers = (&Apache::lonnet::userenvironment($in{'domain'},$in{'username'},'clickers'))[1];	if (grep(/^clicker$/,@cols)) {
if ($clickers!~/\w/) { $clickers='-'; }	my $clickers = (&Apache::lonnet::userenvironment($in{'domain'},$in{'username'},'clickers'))[1];
$in{'clicker'} = $clickers;	if ($clickers!~/\w/) { $clickers='-'; }
	$in{'clicker'} = $clickers;
	}
my $role = $in{'role'};	my $role = $in{'role'};
$in{'role'}=&Apache::lonnet::plaintext($sdata->[$index{'role'}],$crstype);	$in{'role'}=&Apache::lonnet::plaintext($sdata->[$index{'role'}],$crstype);
unless ($mode eq 'excel') {	unless ($mode eq 'excel') {
Line 3838 END	Line 3840 END
} elsif ($item eq 'clicker') {	} elsif ($item eq 'clicker') {
if (($context eq 'course') && ($mode ne 'autoenroll')) {	if (($context eq 'course') && ($mode ne 'autoenroll')) {
if ($env{'form.showrole'} eq 'st' \|\| $env{'form.showrole'} eq 'Any') {	if ($env{'form.showrole'} eq 'st' \|\| $env{'form.showrole'} eq 'Any') {
my $clickers =	$r->print('<td>'.$in{'clicker'}.'</td>');
(&Apache::lonnet::userenvironment($in{'domain'},$in{'username'},'clickers'))[1];
if ($clickers!~/\w/) { $clickers='-'; }
$r->print('<td>'.$clickers.'</td>');
} else {	} else {
$r->print('<td> </td>'."\n");	$r->print('<td> </td>'."\n");
}	}