version 1.267, 2008/12/08 22:46:28
|
version 1.268, 2008/12/14 14:36:18
|
Line 2480 sub update_roles {
|
Line 2480 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]:[_3] in [_4] : [_5]', |
$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'); |