version 1.213, 2022/12/01 01:28:26
|
version 1.214, 2023/06/20 14:03:52
|
Line 616 sub print_roles_queued {
|
Line 616 sub print_roles_queued {
|
$output .= '</ul></p>'; |
$output .= '</ul></p>'; |
if (keys(%touser)) { |
if (keys(%touser)) { |
foreach my $key (keys(%touser)) { |
foreach my $key (keys(%touser)) { |
my ($uname,$udom) = split(/:/,$touser{$key}); |
my ($uname,$udom) = split(/:/,$key); |
if (&Apache::lonnet::put('nohist_queuedrolereqs',$touser{$key},$udom,$uname) eq 'ok') { |
if (&Apache::lonnet::put('nohist_queuedrolereqs',$touser{$key},$udom,$uname) eq 'ok') { |
my $owndomdesc = &Apache::lonnet::domain($udom); |
my $owndomdesc = &Apache::lonnet::domain($udom); |
&Apache::loncoursequeueadmin::send_selfserve_notification($uname.':'.$udom, |
&Apache::loncoursequeueadmin::send_selfserve_notification($uname.':'.$udom, |