version 1.15, 2001/08/03 18:47:18
|
version 1.17, 2001/08/09 14:57:33
|
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 Gerd Kortemeyer |
# 07/27,07/28,07/30,08/03,08/06,08/08,08/09 Gerd Kortemeyer |
|
|
package Apache::lonmsg; |
package Apache::lonmsg; |
|
|
Line 206 sub statuschange {
|
Line 206 sub statuschange {
|
} |
} |
} |
} |
|
|
|
# ======================================================= Display a course list |
|
|
|
sub discourse { |
|
my $r=shift; |
|
my %courselist=&Apache::lonnet::dump( |
|
'classlist', |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
my $now=time; |
|
$r->print(<<ENDDISHEADER); |
|
<input type=hidden name=sendmode value=group> |
|
<script> |
|
function checkall() { |
|
for (i=0; i<document.forms.compemail.elements.length; i++) { |
|
if |
|
(document.forms.compemail.elements[i].name.indexOf('send_to_')==0) { |
|
document.forms.compemail.elements[i].checked=true; |
|
} |
|
} |
|
} |
|
|
|
function uncheckall() { |
|
for (i=0; i<document.forms.compemail.elements.length; i++) { |
|
if |
|
(document.forms.compemail.elements[i].name.indexOf('send_to_')==0) { |
|
document.forms.compemail.elements[i].checked=false; |
|
} |
|
} |
|
} |
|
</script> |
|
<input type=button onClick="checkall()" value="Check for All"> |
|
<input type=button onClick="uncheckall()" value="Check for None"> |
|
<p> |
|
ENDDISHEADER |
|
map { |
|
my ($end,$start)=split(/\:/,$courselist{$_}); |
|
my $active=1; |
|
if (($end) && ($now>$end)) { $active=0; } |
|
if ($active) { |
|
my ($sname,$sdom)=split(/\:/,$_); |
|
my %reply=&Apache::lonnet::get('environment', |
|
['firstname','middlename','lastname','generation'], |
|
$sdom,$sname); |
|
$r->print('<br><input type=checkbox name="send_to_'.$_.'"> '. |
|
$reply{'firstname'}.' '. |
|
$reply{'middlename'}.' '. |
|
$reply{'lastname'}.' '. |
|
$reply{'generation'}. |
|
' ('.$_.')'); |
|
} |
|
} sort keys %courselist; |
|
} |
|
|
# ==================================================== Display Critical Message |
# ==================================================== Display Critical Message |
|
|
sub discrit { |
sub discrit { |
Line 223 sub discrit {
|
Line 276 sub discrit {
|
'<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'. |
'<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'. |
'<input type=submit name="reprec_'.$_.'" value="Confirm Receipt and Reply">'); |
'<input type=submit name="reprec_'.$_.'" value="Confirm Receipt and Reply">'); |
} sort keys %what; |
} sort keys %what; |
$r->print('</form>'); |
$r->print( |
|
'<input type=hidden name="displayedcrit" value="true"></form>'); |
} |
} |
|
|
# =============================================================== Compose reply |
# =============================================================== Compose reply |
Line 292 sub disall {
|
Line 346 sub disall {
|
# ============================================================== Compose output |
# ============================================================== Compose output |
|
|
sub compout { |
sub compout { |
my ($r,$forwarding)=@_; |
my ($r,$forwarding,$broadcast)=@_; |
my $dispcrit=''; |
my $dispcrit=''; |
my $dissub=''; |
my $dissub=''; |
my $dismsg=''; |
my $dismsg=''; |
Line 313 sub compout {
|
Line 367 sub compout {
|
$content{'sendername'}.' at '.$content{'senderdomain'}; |
$content{'sendername'}.' at '.$content{'senderdomain'}; |
} |
} |
my $defdom=$ENV{'user.domain'}; |
my $defdom=$ENV{'user.domain'}; |
$r->print(<<"ENDCOMP"); |
$r->print('<form action="/adm/email" name="compemail" method=post>'. |
<form action="/adm/email" method=post> |
'<input type=hidden name=sendmail value=on><table>'); |
<input type=hidden name=sendmail value=on> |
unless ($broadcast eq 'group') { |
|
$r->print(<<"ENDREC"); |
<table> |
<table> |
<tr><td>Username:</td><td><input type=text size=12 name=recuname></td></tr> |
<tr><td>Username:</td><td><input type=text size=12 name=recuname></td></tr> |
<tr><td>Domain:</td> |
<tr><td>Domain:</td> |
<td><input type=text size=12 name=recdomain value="$defdom"></td></tr> |
<td><input type=text size=12 name=recdomain value="$defdom"></td></tr> |
|
ENDREC |
|
} |
|
$r->print(<<"ENDCOMP"); |
<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 |
</textarea><p> |
</textarea><p> |
$dispcrit |
$dispcrit |
<input type=submit value="$func Mail"> |
<input type=submit value="$func Mail"> |
</form> |
|
ENDCOMP |
ENDCOMP |
|
if ($broadcast eq 'group') { |
|
&discourse; |
|
} |
|
$r->print('</form>'); |
} |
} |
|
|
# ===================================================================== Handler |
# ===================================================================== Handler |
Line 435 sub handler {
|
Line 496 sub handler {
|
&statuschange($ENV{'form.markunread'},'new'); |
&statuschange($ENV{'form.markunread'},'new'); |
&disall($r); |
&disall($r); |
} elsif ($ENV{'form.compose'}) { |
} elsif ($ENV{'form.compose'}) { |
&compout($r); |
&compout($r,'',$ENV{'form.compose'}); |
} elsif ($ENV{'form.sendmail'}) { |
} elsif ($ENV{'form.sendmail'}) { |
|
my %content=(); |
|
undef %content; |
|
if ($ENV{'form.forwid'}) { |
|
my $msgid=$ENV{'form.forwid'}; |
|
my %message=&Apache::lonnet::get('nohist_email',[$msgid]); |
|
%content=&unpackagemsg($message{$msgid}); |
|
&statuschange($msgid,'forwarded'); |
|
$ENV{'form.message'}.="\n\n-- Forwarded message --\n\n". |
|
$content{'message'}; |
|
} |
|
if (($ENV{'form.critmsg'}) && |
|
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { |
|
$r->print('Sending critical: '. |
|
&user_crit_msg($ENV{'form.recuname'}, |
|
$ENV{'form.recdomain'}, |
|
$ENV{'form.subject'}, |
|
$ENV{'form.message'}, |
|
$content{'citation'})); |
|
} else { |
|
$r->print('Sending: '.&user_normal_msg($ENV{'form.recuname'}, |
|
$ENV{'form.recdomain'}, |
|
$ENV{'form.subject'}, |
|
$ENV{'form.message'}, |
|
$content{'citation'})); |
|
} |
|
if ($ENV{'form.displayedcrit'}) { |
|
&discrit($r); |
|
} else { |
|
&disall($r); |
|
} |
} else { |
} else { |
&disall($r); |
&disall($r); |
} |
} |