version 1.18, 2001/08/09 15:29:37
|
version 1.21, 2001/08/15 16:05:04
|
Line 13
|
Line 13
|
# 10/19,10/20,10/30, |
# 10/19,10/20,10/30, |
# 02/06/01 Gerd Kortemeyer |
# 02/06/01 Gerd Kortemeyer |
# 07/27 Guy Albertelli |
# 07/27 Guy Albertelli |
# 07/27,07/28,07/30,08/03,08/06,08/08,08/09 Gerd Kortemeyer |
# 07/27,07/28,07/30,08/03,08/06,08/08,08/09,08/10,8/13,8/15 Gerd Kortemeyer |
|
|
package Apache::lonmsg; |
package Apache::lonmsg; |
|
|
Line 121 sub user_crit_msg {
|
Line 121 sub user_crit_msg {
|
unless (($message)&&($user)&&($domain)) { $status='empty'; }; |
unless (($message)&&($user)&&($domain)) { $status='empty'; }; |
my $homeserver=&Apache::lonnet::homeserver($user,$domain); |
my $homeserver=&Apache::lonnet::homeserver($user,$domain); |
if ($homeserver ne 'no_host') { |
if ($homeserver ne 'no_host') { |
my $msgid; |
|
($msgid,$message)=&packagemsg($subject,$message); |
($msgid,$message)=&packagemsg($subject,$message); |
$status=&Apache::lonnet::critical( |
$status=&Apache::lonnet::critical( |
'put:'.$domain.':'.$user.':critical:'. |
'put:'.$domain.':'.$user.':critical:'. |
Line 175 sub user_normal_msg {
|
Line 174 sub user_normal_msg {
|
unless (($message)&&($user)&&($domain)) { $status='empty'; }; |
unless (($message)&&($user)&&($domain)) { $status='empty'; }; |
my $homeserver=&Apache::lonnet::homeserver($user,$domain); |
my $homeserver=&Apache::lonnet::homeserver($user,$domain); |
if ($homeserver ne 'no_host') { |
if ($homeserver ne 'no_host') { |
my $msgid; |
|
($msgid,$message)=&packagemsg($subject,$message,$citation); |
($msgid,$message)=&packagemsg($subject,$message,$citation); |
$status=&Apache::lonnet::critical( |
$status=&Apache::lonnet::critical( |
'put:'.$domain.':'.$user.':nohist_email:'. |
'put:'.$domain.':'.$user.':nohist_email:'. |
Line 227 sub discourse {
|
Line 225 sub discourse {
|
} |
} |
} |
} |
|
|
|
function checksec() { |
|
for (i=0; i<document.forms.compemail.elements.length; i++) { |
|
if |
|
(document.forms.compemail.elements[i].name.indexOf |
|
('send_to_&&&'+document.forms.compemail.chksec.value)==0) { |
|
document.forms.compemail.elements[i].checked=true; |
|
} |
|
} |
|
} |
|
|
function uncheckall() { |
function uncheckall() { |
for (i=0; i<document.forms.compemail.elements.length; i++) { |
for (i=0; i<document.forms.compemail.elements.length; i++) { |
if |
if |
Line 236 sub discourse {
|
Line 244 sub discourse {
|
} |
} |
} |
} |
</script> |
</script> |
<input type=button onClick="checkall()" value="Check for All"> |
<input type=button onClick="checkall()" value="Check for All"> |
|
<input type=button onClick="checksec()" value="Check for Section/Group"> |
|
<input type=text size=5 name=chksec> |
<input type=button onClick="uncheckall()" value="Check for None"> |
<input type=button onClick="uncheckall()" value="Check for None"> |
<p> |
<p> |
ENDDISHEADER |
ENDDISHEADER |
Line 249 ENDDISHEADER
|
Line 259 ENDDISHEADER
|
my %reply=&Apache::lonnet::get('environment', |
my %reply=&Apache::lonnet::get('environment', |
['firstname','middlename','lastname','generation'], |
['firstname','middlename','lastname','generation'], |
$sdom,$sname); |
$sdom,$sname); |
$r->print('<br><input type=checkbox name="send_to_'.$_.'"> '. |
my $section=&Apache::lonnet::usection |
|
($sdom,$sname,$ENV{'request.course.id'}); |
|
$r->print( |
|
'<br><input type=checkbox name="send_to_&&&'.$section.'&&&_'.$_.'"> '. |
$reply{'firstname'}.' '. |
$reply{'firstname'}.' '. |
$reply{'middlename'}.' '. |
$reply{'middlename'}.' '. |
$reply{'lastname'}.' '. |
$reply{'lastname'}.' '. |
$reply{'generation'}. |
$reply{'generation'}. |
' ('.$_.')'); |
' ('.$_.') '.$section); |
} |
} |
} sort keys %courselist; |
} sort keys %courselist; |
} |
} |
Line 378 sub compout {
|
Line 391 sub compout {
|
ENDREC |
ENDREC |
} |
} |
$r->print(<<"ENDCOMP"); |
$r->print(<<"ENDCOMP"); |
|
<tr><td>Additional Recipients<br><tt>username\@domain,username\@domain, ... |
|
</tt></td><td> |
|
<input type=text size=50 name=additionalrec></td></tr> |
<tr><td>Subject:</td><td><input type=text size=50 name=subject value="$dissub"> |
<tr><td>Subject:</td><td><input type=text size=50 name=subject value="$dissub"> |
</td></tr></table> |
</td></tr></table> |
<textarea name=message cols=60 rows=10>$dismsg |
<textarea name=message cols=60 rows=10>$dismsg |
Line 512 sub handler {
|
Line 528 sub handler {
|
undef %toaddr; |
undef %toaddr; |
if ($ENV{'form.sendmode'} eq 'group') { |
if ($ENV{'form.sendmode'} eq 'group') { |
map { |
map { |
if ($_=~/^form\.send\_to\_(.+)$/) { |
if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) { |
$toaddr{$1}=1; |
$toaddr{$1}=1; |
} |
} |
} keys %ENV; |
} keys %ENV; |
} else { |
} else { |
$toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}=1; |
$toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}=1; |
} |
} |
|
if ($ENV{'form.additionalrec'}) { |
|
map { |
|
my ($auname,$audom)=split(/\@/,$_); |
|
$toaddr{$auname.':'.$audom}=1; |
|
} split(/\,/,$ENV{'form.additionalrec'}); |
|
} |
map { |
map { |
my ($recuname,$recdomain)=split(/\:/,$_); |
my ($recuname,$recdomain)=split(/\:/,$_); |
if (($ENV{'form.critmsg'}) && |
if (($ENV{'form.critmsg'}) && |