Return to lonroles.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.198, 2008/07/05 17:50:57 | version 1.199, 2008/07/05 23:27:34 |
---|---|
Line 1088 sub adhoc_course_role { | Line 1088 sub adhoc_course_role { |
my $custom_role = $2; | my $custom_role = $2; |
my $usec = $3; | my $usec = $3; |
if ($role eq 'cr') { | if ($role eq 'cr') { |
if ($custom_role =~ m-^$match_domain/$match_courseid/\w+$-) { | if ($custom_role =~ m-^/$match_domain/$match_username/\w+$-) { |
$role .= $custom_role; | $role .= $custom_role; |
} else { | } else { |
return; | return; |