loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.104, 2004/07/15 21:08:45	version 1.105, 2004/09/09 08:00:12
Line 861 sub compout {	Line 861 sub compout {
if ($replying) {	if ($replying) {
%message=&Apache::lonnet::get('nohist_email',[$replying]);	%message=&Apache::lonnet::get('nohist_email',[$replying]);
%content=&unpackagemsg($message{$replying});	%content=&unpackagemsg($message{$replying});
$dispcrit.='<input type="hidden" name="forwid" value="'.	$dispcrit.='<input type="hidden" name="replyid" value="'.
$forwarding.'" />';	$replying.'" />';
$func=&mt('Replying to');	$func=&mt('Replying to');

$dissub=&mt('Reply').': '.$content{'subject'};	$dissub=&mt('Reply').': '.$content{'subject'};
Line 1654 sub handler {	Line 1654 sub handler {
$ENV{'form.message'}.="\n\n-- Forwarded message --\n\n".	$ENV{'form.message'}.="\n\n-- Forwarded message --\n\n".
$content{'message'};	$content{'message'};
}	}
	if ($ENV{'form.replyid'}) {
	my $msgid=$ENV{'form.replyid'};
	my %message=&Apache::lonnet::get('nohist_email',[$msgid]);
	%content=&unpackagemsg($message{$msgid},1);
	&statuschange($msgid,'replied');
	}
my %toaddr=();	my %toaddr=();
undef %toaddr;	undef %toaddr;
if ($ENV{'form.sendmode'} eq 'group') {	if ($ENV{'form.sendmode'} eq 'group') {