version 1.222, 2007/12/21 21:02:10
|
version 1.223, 2007/12/23 15:50:23
|
Line 2109 sub update_roles {
|
Line 2109 sub update_roles {
|
if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) { |
if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) { |
my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$1,$2,$3); |
my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$1,$2,$3); |
if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course') || ($result eq 'refused')) { |
if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course') || ($result eq 'refused')) { |
$output = "Error: $result\n"; |
if ($result eq 'refused' && $logmsg) { |
|
$output = $logmsg; |
|
} else { |
|
$output = "Error: $result\n"; |
|
} |
} else { |
} else { |
$output = &mt('Assigning').' '.$role.' in '.$url. |
$output = &mt('Assigning').' '.$role.' in '.$url. |
&mt('starting').' '.localtime($now). |
&mt('starting').' '.localtime($now). |
Line 2836 sub handler {
|
Line 2840 sub handler {
|
'User_Management_List')); |
'User_Management_List')); |
if ($permission->{'cusr'}) { |
if ($permission->{'cusr'}) { |
&Apache::lonuserutils::update_user_list($r,$context,$setting,$choice); |
&Apache::lonuserutils::update_user_list($r,$context,$setting,$choice); |
$r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>'); |
|
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} else { |
} else { |
$r->print(&mt('You are not authorized to make bulk changes to user roles')); |
$r->print(&mt('You are not authorized to make bulk changes to user roles')); |
|
$r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>'); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} |
} |
} else { |
} else { |