loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1185, 2012/08/19 00:18:41	version 1.1186, 2012/08/21 04:04:58
Line 3713 sub get_my_roles {	Line 3713 sub get_my_roles {
}	}
my ($rolecode,$username,$domain,$section,$area);	my ($rolecode,$username,$domain,$section,$area);
if ($context eq 'userroles') {	if ($context eq 'userroles') {
($area,$rolecode) = split(/_/,$entry);	($area,$rolecode) = ($entry =~ /^(.+)_([^_]+)$/);
(undef,$domain,$username,$section) = split(/\//,$area);	(undef,$domain,$username,$section) = split(/\//,$area);
} else {	} else {
($role,$username,$domain,$section) = split(/\:/,$entry);	($role,$username,$domain,$section) = split(/\:/,$entry);