version 1.120, 2004/11/17 21:05:26
|
version 1.121, 2004/11/17 21:31:37
|
Line 1006 ENDDISHEADER
|
Line 1006 ENDDISHEADER
|
|
|
sub compout { |
sub compout { |
my ($r,$forwarding,$replying,$broadcast,$replycrit,$folder)=@_; |
my ($r,$forwarding,$replying,$broadcast,$replycrit,$folder)=@_; |
|
my $suffix=&foldersuffix($folder); |
|
|
if ($broadcast eq 'individual') { |
if ($broadcast eq 'individual') { |
&printheader($r,'/adm/email?compose=individual', |
&printheader($r,'/adm/email?compose=individual', |
Line 1057 sub compout {
|
Line 1058 sub compout {
|
my %content; |
my %content; |
my $defdom=$ENV{'user.domain'}; |
my $defdom=$ENV{'user.domain'}; |
if ($forwarding) { |
if ($forwarding) { |
%message=&Apache::lonnet::get('nohist_email',[$forwarding]); |
%message=&Apache::lonnet::get('nohist_email'.$suffix,[$forwarding]); |
%content=&unpackagemsg($message{$forwarding},$folder); |
%content=&unpackagemsg($message{$forwarding},$folder); |
$dispcrit.='<input type="hidden" name="forwid" value="'. |
$dispcrit.='<input type="hidden" name="forwid" value="'. |
$forwarding.'" />'; |
$forwarding.'" />'; |
Line 1071 sub compout {
|
Line 1072 sub compout {
|
} |
} |
} |
} |
if ($replying) { |
if ($replying) { |
%message=&Apache::lonnet::get('nohist_email',[$replying]); |
%message=&Apache::lonnet::get('nohist_email'.$suffix,[$replying]); |
%content=&unpackagemsg($message{$replying},$folder); |
%content=&unpackagemsg($message{$replying},$folder); |
$dispcrit.='<input type="hidden" name="replyid" value="'. |
$dispcrit.='<input type="hidden" name="replyid" value="'. |
$replying.'" />'; |
$replying.'" />'; |
Line 2046 sub handler {
|
Line 2047 sub handler {
|
&printheader($r,'','Displaying Critical Messages'); |
&printheader($r,'','Displaying Critical Messages'); |
&discrit($r); |
&discrit($r); |
} elsif ($ENV{'form.forward'}) { |
} elsif ($ENV{'form.forward'}) { |
&compout($r,$ENV{'form.forward'},undef,undef,$folder); |
&compout($r,$ENV{'form.forward'},undef,undef,undef,$folder); |
} elsif ($ENV{'form.markdel'}) { |
} elsif ($ENV{'form.markdel'}) { |
&printheader($r,'','Deleted Message'); |
&printheader($r,'','Deleted Message'); |
&statuschange($ENV{'form.markdel'},'deleted',$folder); |
&statuschange($ENV{'form.markdel'},'deleted',$folder); |