version 1.40, 2014/01/16 18:07:45
|
version 1.41, 2014/12/11 13:15:35
|
Line 220 sub print_display_option_form {
|
Line 220 sub print_display_option_form {
|
$output .= &Apache::lonhtmlcommon::row_title(&mt('Choose sender(s)')); |
$output .= &Apache::lonhtmlcommon::row_title(&mt('Choose sender(s)')); |
my %personnel = &Apache::lonnet::get_domain_roles($cdom,\@roles); |
my %personnel = &Apache::lonnet::get_domain_roles($cdom,\@roles); |
my @domcc = (); |
my @domcc = (); |
foreach my $server (keys %personnel) { |
foreach my $server (keys(%personnel)) { |
foreach my $user (sort(keys %{$personnel{$server}})) { |
foreach my $user (sort(keys(%{$personnel{$server}}))) { |
my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,$user); |
my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,$user); |
unless (grep/^$uname:$udom$/,@domcc) { |
unless (grep/^$uname:$udom$/,@domcc) { |
my %userinfo = &Apache::lonnet::get('environment',['lastname','firstname'],$udom,$uname); |
my %userinfo = &Apache::lonnet::get('environment',['lastname','firstname'],$udom,$uname); |
Line 645 function goBack(target) {
|
Line 645 function goBack(target) {
|
$output .= &Apache::loncommon::end_data_table(); |
$output .= &Apache::loncommon::end_data_table(); |
if (@unmatched) { |
if (@unmatched) { |
$output .= '<br /><br />'.&mt('Could not determine e-mail addresses for the following users:').'<ul>'; |
$output .= '<br /><br />'.&mt('Could not determine e-mail addresses for the following users:').'<ul>'; |
foreach my $username (sort @unmatched) { |
foreach my $username (sort(@unmatched)) { |
$output .= '<li>'.$username.'</li>'; |
$output .= '<li>'.$username.'</li>'; |
} |
} |
$output .= '</ul>'; |
$output .= '</ul>'; |