version 1.293, 2009/05/11 13:07:24
|
version 1.294, 2009/05/14 14:23:56
|
Line 2689 sub update_roles {
|
Line 2689 sub update_roles {
|
if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) { |
if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) { |
my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4); |
my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4); |
# Delete custom role |
# Delete custom role |
$r->print(&mt('Deleting custom role [_1] by [_2]:[_3] in [_4]', |
$r->print(&mt('Deleting custom role [_1] by [_2] in [_3]', |
$rolename,$rnam,$rdom,$url).': <b>'. |
$rolename,$rnam.':'.$rdom,$url).': <b>'. |
&Apache::lonnet::assigncustomrole($env{'form.ccdomain'}, |
&Apache::lonnet::assigncustomrole($env{'form.ccdomain'}, |
$env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now, |
$env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now, |
0,1,$context).'</b><br />'); |
0,1,$context).'</b><br />'); |
Line 2741 sub update_roles {
|
Line 2741 sub update_roles {
|
my $result = &Apache::lonnet::assigncustomrole( |
my $result = &Apache::lonnet::assigncustomrole( |
$env{'form.ccdomain'}, $env{'form.ccuname'}, |
$env{'form.ccdomain'}, $env{'form.ccuname'}, |
$url,$rdom,$rnam,$rolename,0,$now,undef,$context); |
$url,$rdom,$rnam,$rolename,0,$now,undef,$context); |
$r->print(&mt('Re-enabling custom role [_1] by [_2]:[_3] in [_4] : [_5]', |
$r->print(&mt('Re-enabling custom role [_1] by [_2] in [_3]: [_4]', |
$rolename,$rnam,$rdom,$url,'<b>'.$result.'</b>').'<br />'); |
$rolename,$rnam.':'.$rdom,$url,'<b>'.$result.'</b>').'<br />'); |
if (!grep(/^cr$/,@rolechanges)) { |
if (!grep(/^cr$/,@rolechanges)) { |
push(@rolechanges,'cr'); |
push(@rolechanges,'cr'); |
} |
} |