version 1.24, 2006/10/12 22:47:31
|
version 1.27, 2007/11/13 03:53:30
|
Line 1
|
Line 1
|
|
# The LearningOnline Network with CAPA |
|
# Sending messages |
|
# |
|
# $Id$ |
# |
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
# |
# |
Line 205 sub print_display_option_form {
|
Line 209 sub print_display_option_form {
|
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); |
$output .= '<input type="checkbox" name="sender" value="'.$uname.':'.$udom.'" /> '.$userinfo{firstname}.' '.$userinfo{lastname}.' ('.$uname.':'.$udom.')'; |
$output .= '<input type="checkbox" name="sender" value="'.$uname.':'.$udom.'" /> '.$userinfo{'firstname'}.' '.$userinfo{'lastname'}.' ('.$uname.':'.$udom.')'; |
push (@domcc,$uname.':'.$udom); |
push (@domcc,$uname.':'.$udom); |
} |
} |
} |
} |
Line 501 function goBack(target) {
|
Line 505 function goBack(target) {
|
'Broadcast e-mail to users', $formname)); |
'Broadcast e-mail to users', $formname)); |
|
|
my $coursefilter = $env{'form.coursepick'}; |
my $coursefilter = $env{'form.coursepick'}; |
my %courses = (); |
my %courses; |
if ($coursefilter eq 'all') { |
if ($coursefilter eq 'all') { |
%courses = &Apache::lonnet::courseiddump($cdom,'.','.','.','.','.', |
%courses = &Apache::lonnet::courseiddump($cdom,'.','.','.','.','.', |
undef,undef,'Course'); |
undef,undef,'Course'); |
Line 523 function goBack(target) {
|
Line 527 function goBack(target) {
|
} elsif ($coursefilter eq 'specific') { |
} elsif ($coursefilter eq 'specific') { |
if ($env{'form.coursetotal'} > 1) { |
if ($env{'form.coursetotal'} > 1) { |
my @course_ids = split(/&&/,$env{'form.courselist'}); |
my @course_ids = split(/&&/,$env{'form.courselist'}); |
foreach (@course_ids) { |
foreach my $cid (@course_ids) { |
$courses{$_} = ''; |
$courses{$cid} = ''; |
} |
} |
} else { |
} else { |
$courses{$env{'form.courselist'}} = ''; |
$courses{$env{'form.courselist'}} = ''; |
Line 577 function goBack(target) {
|
Line 581 function goBack(target) {
|
$access{$type} = $type; |
$access{$type} = $type; |
} |
} |
foreach my $course_id (keys(%courses)) { |
foreach my $course_id (keys(%courses)) { |
my ($cdom,$cnum) = split(/_/,$course_id); |
my %coursehash = |
|
&Apache::lonnet::coursedescription($course_id,{'one_time' => 1}); |
|
my $cdom = $coursehash{'domain'}; |
|
my $cnum = $coursehash{'num'}; |
&Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users); |
&Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users); |
} |
} |
foreach my $role (keys(%users)) { |
foreach my $role (keys(%users)) { |
Line 735 sub get_user_info {
|
Line 742 sub get_user_info {
|
my ($user,%email_defaults) = @_; |
my ($user,%email_defaults) = @_; |
my ($uname,$udom) = split(/:/,$user); |
my ($uname,$udom) = split(/:/,$user); |
my @emailtypes = ('permanentemail','critnotification','notification'); |
my @emailtypes = ('permanentemail','critnotification','notification'); |
my %userinfo = &Apache::lonnet::get('environment',\@emailtypes,$udom,$uname); |
my %userinfo = &Apache::loncommon::getemails($uname,$udom); |
my $email = ''; |
my $email = ''; |
foreach my $type (@emailtypes) { |
foreach my $type (@emailtypes) { |
$email = $userinfo{$type}; |
$email = $userinfo{$type}; |
Line 783 sub store_mail {
|
Line 790 sub store_mail {
|
$attachmenturl,$recipients,undef,undef,'dcmail'); |
$attachmenturl,$recipients,undef,undef,'dcmail'); |
|
|
# Store in dc email db files on primary library server for domain. |
# Store in dc email db files on primary library server for domain. |
my $server = $Apache::lonnet::domain_primary{$domain}; |
my $server = &Apache::lonnet::domain($domain,'primary'); |
if (defined($server)) { |
if (defined($server)) { |
unless (&Apache::lonnet::dcmailput($domain,$msgid,$message,$server) |
unless (&Apache::lonnet::dcmailput($domain,$msgid,$message,$server) |
eq 'ok') { |
eq 'ok') { |