loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.170, 2006/11/23 01:49:41	version 1.171, 2006/12/01 21:52:29
Line 126 sub handler {	Line 126 sub handler {
if ($numdc > 0) {	if ($numdc > 0) {
foreach my $envkey (keys %env) {	foreach my $envkey (keys %env) {
if (my ($domain,$coursenum) =	if (my ($domain,$coursenum) =
($envkey =~ m-^form\.cc\./($match_domain)/($match_username)$-)) {	($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) {
if ($dcroles{$domain}) {	if ($dcroles{$domain}) {
&check_privs($domain,$coursenum,$then,$now);	&check_privs($domain,$coursenum,$then,$now);
}	}
Line 988 sub display_cc_role {	Line 988 sub display_cc_role {
my $advanced = $env{'user.adv'};	my $advanced = $env{'user.adv'};
my $tryagain = $env{'form.tryagain'};	my $tryagain = $env{'form.tryagain'};
unless ($rolekey =~/^error\:/) {	unless ($rolekey =~/^error\:/) {
if ($rolekey =~ m-^user\.role.cc\./($match_domain)/($match_username)$-) {	if ($rolekey =~ m-^user\.role.cc\./($match_domain)/($match_courseid)$-) {
my $tcourseid = $1.'_'.$2;	my $tcourseid = $1.'_'.$2;
my $trolecode = 'cc./'.$1.'/'.$2;	my $trolecode = 'cc./'.$1.'/'.$2;
my $twhere;	my $twhere;