loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1250, 2014/02/23 20:53:03	version 1.1251, 2014/02/24 03:04:58
Line 5338 sub role_status {	Line 5338 sub role_status {
if (exists($env{$rolekey}) && $env{$rolekey} ne '') {	if (exists($env{$rolekey}) && $env{$rolekey} ne '') {
my ($one,$two) = split(m{\./},$rolekey,2);	my ($one,$two) = split(m{\./},$rolekey,2);
(undef,undef,$$role) = split(/\./,$one,3);	(undef,undef,$$role) = split(/\./,$one,3);
$$where = '/'.$two;
unless (!defined($$role) \|\| $$role eq '') {	unless (!defined($$role) \|\| $$role eq '') {
	$$where = '/'.$two;
$$trolecode=$$role.'.'.$$where;	$$trolecode=$$role.'.'.$$where;
($$tstart,$$tend)=split(/\./,$env{$rolekey});	($$tstart,$$tend)=split(/\./,$env{$rolekey});
$$tstatus='is';	$$tstatus='is';