loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.127, 2005/01/01 18:24:12	version 1.128, 2005/01/01 18:36:13
Line 598 sub movemsg {	Line 598 sub movemsg {
&Apache::lonnet::put('nohist_email'.$trgsuffix,{$msgid => $message{$msgid}});	&Apache::lonnet::put('nohist_email'.$trgsuffix,{$msgid => $message{$msgid}});

# Copy status	# Copy status
my %status=&Apache::lonnet::get('email_status'.$srcsuffix,[$msgid]);	unless ($trgfolder eq 'trash') {
&Apache::lonnet::put('email_status'.$trgsuffix,{$msgid => $status{$msgid}});	my %status=&Apache::lonnet::get('email_status'.$srcsuffix,[$msgid]);
# See if was deleted -> becomes "read" in trash	&Apache::lonnet::put('email_status'.$trgsuffix,{$msgid => $status{$msgid}});
my $currentstatus=(&unpackmsgid($status{$msgid}),$srcfolder);
if ($currentstatus eq 'deleted') {
&statuschange($msgid,'read',$trgfolder);
}	}
# Delete orginals	# Delete orginals
&Apache::lonnet::del('nohist_email'.$srcsuffix,[$msgid]);	&Apache::lonnet::del('nohist_email'.$srcsuffix,[$msgid]);