|
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'); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncreateuser.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface