loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.281, 2013/01/04 04:03:03	version 1.282, 2013/04/03 20:46:55
Line 2545 sub role_desc {	Line 2545 sub role_desc {
my ($item,$update,$refresh,$now) = @_;	my ($item,$update,$refresh,$now) = @_;
my ($where,$trolecode,$role,$tstatus,$tend,$tstart,$twhere,	my ($where,$trolecode,$role,$tstatus,$tend,$tstart,$twhere,
$trole,$tremark);	$trole,$tremark);
&Apache::lonnet::role_status('user.role.'.$item,$update,$refresh, $now,\$role,\$where, \$trolecode,	&Apache::lonnet::role_status('user.role.'.$item,$update,$refresh,
	$now,\$role,\$where,\$trolecode,
\$tstatus,\$tstart,\$tend);	\$tstatus,\$tstart,\$tend);
if ($role =~ /^cr\//) {	if ($role =~ /^cr\//) {
my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);	my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);