version 1.14, 2001/08/03 17:16:48
|
version 1.15, 2001/08/03 18:47:18
|
Line 255 $dispcrit
|
Line 255 $dispcrit
|
ENDREPLY |
ENDREPLY |
} |
} |
|
|
|
# ======================================================== Display all messages |
|
|
sub disall { |
sub disall { |
my $r=shift; |
my $r=shift; |
$r->print('<h1>Display All Messages</h1>'. |
$r->print('<h1>Display All Messages</h1>'. |
Line 287 sub disall {
|
Line 289 sub disall {
|
$r->print('</table></body></html>'); |
$r->print('</table></body></html>'); |
} |
} |
|
|
|
# ============================================================== Compose output |
|
|
|
sub compout { |
|
my ($r,$forwarding)=@_; |
|
my $dispcrit=''; |
|
my $dissub=''; |
|
my $dismsg=''; |
|
my $func='Send New'; |
|
if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
|
$dispcrit= |
|
'<input type=checkbox name=critmsg> Send as critical message<p>'; |
|
} |
|
if ($forwarding) { |
|
$dispcrit.='<input type=hidden name=forwid value="'. |
|
$forwarding.'">'; |
|
$func='Forward'; |
|
my %message=&Apache::lonnet::get('nohist_email',[$forwarding]); |
|
my %content=&unpackagemsg($message{$forwarding}); |
|
|
|
$dissub='Forwarding: '.$content{'subject'}; |
|
$dismsg='Forwarded message from '. |
|
$content{'sendername'}.' at '.$content{'senderdomain'}; |
|
} |
|
my $defdom=$ENV{'user.domain'}; |
|
$r->print(<<"ENDCOMP"); |
|
<form action="/adm/email" method=post> |
|
<input type=hidden name=sendmail value=on> |
|
<table> |
|
<tr><td>Username:</td><td><input type=text size=12 name=recuname></td></tr> |
|
<tr><td>Domain:</td> |
|
<td><input type=text size=12 name=recdomain value="$defdom"></td></tr> |
|
<tr><td>Subject:</td><td><input type=text size=50 name=subject value="$dissub"> |
|
</td></tr></table> |
|
<textarea name=message cols=60 rows=10>$dismsg |
|
</textarea><p> |
|
$dispcrit |
|
<input type=submit value="$func Mail"> |
|
</form> |
|
ENDCOMP |
|
} |
|
|
# ===================================================================== Handler |
# ===================================================================== Handler |
|
|
sub handler { |
sub handler { |
Line 334 sub handler {
|
Line 377 sub handler {
|
'<table border=2><tr bgcolor="#FFFFAA"><td>Functions:</td>'. |
'<table border=2><tr bgcolor="#FFFFAA"><td>Functions:</td>'. |
'<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid). |
'<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid). |
'"><b>Reply</b></a></td>'. |
'"><b>Reply</b></a></td>'. |
'<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid). |
'<td><a href="/adm/email?forward='.&Apache::lonnet::escape($msgid). |
'"><b>Forward</b></a></td>'. |
'"><b>Forward</b></a></td>'. |
|
'<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid). |
|
'"><b>Mark Unread</b></a></td>'. |
|
'<td><a href="/adm/email"><b>Display all Messages</b></a></td>'. |
'</tr></table><p><pre>'. |
'</tr></table><p><pre>'. |
$content{'message'}.'</pre><hr>'.$content{'citation'}); |
$content{'message'}.'</pre><hr>'.$content{'citation'}); |
} elsif ($ENV{'form.replyto'}) { |
} elsif ($ENV{'form.replyto'}) { |
Line 380 sub handler {
|
Line 426 sub handler {
|
} elsif ($ENV{'form.critical'}) { |
} elsif ($ENV{'form.critical'}) { |
&discrit($r); |
&discrit($r); |
} elsif ($ENV{'form.forward'}) { |
} elsif ($ENV{'form.forward'}) { |
|
&compout($r,$ENV{'form.forward'}); |
} elsif ($ENV{'form.markread'}) { |
} elsif ($ENV{'form.markread'}) { |
} elsif ($ENV{'form.markdel'}) { |
} elsif ($ENV{'form.markdel'}) { |
&statuschange($ENV{'form.markdel'},'deleted'); |
&statuschange($ENV{'form.markdel'},'deleted'); |
&disall($r); |
&disall($r); |
} elsif ($ENV{'form.markunread'}) { |
} elsif ($ENV{'form.markunread'}) { |
|
&statuschange($ENV{'form.markunread'},'new'); |
|
&disall($r); |
} elsif ($ENV{'form.compose'}) { |
} elsif ($ENV{'form.compose'}) { |
my $dispcrit=''; |
&compout($r); |
if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
|
$dispcrit= |
|
'<input type=checkbox name=critmsg> Send as critical message<p>'; |
|
} |
|
$r->print(<<"ENDCOMP"); |
|
<form action="/adm/email" method=post> |
|
<input type=hidden name=sendmail value=on> |
|
Subject: <input type=text size=50 name=subject value=""><p> |
|
<textarea name=message cols=60 rows=10> |
|
</textarea><p> |
|
$dispcrit |
|
<input type=submit value="Send Mail"> |
|
</form> |
|
ENDCOMP |
|
} elsif ($ENV{'form.sendmail'}) { |
} elsif ($ENV{'form.sendmail'}) { |
} else { |
} else { |
&disall($r); |
&disall($r); |