|
version 1.126, 2005/01/01 17:58:48
|
version 1.128, 2005/01/01 18:36:13
|
|
Line 590 sub makefolder {
|
Line 590 sub makefolder {
|
| |
|
| sub movemsg { |
sub movemsg { |
| my ($msgid,$srcfolder,$trgfolder)=@_; |
my ($msgid,$srcfolder,$trgfolder)=@_; |
| my $unmsgid=&Apache::lonnet::unescape($msgid); |
|
| my $srcsuffix=&foldersuffix($srcfolder); |
my $srcsuffix=&foldersuffix($srcfolder); |
| my $trgsuffix=&foldersuffix($trgfolder); |
my $trgsuffix=&foldersuffix($trgfolder); |
| |
|
|
Line 599 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,[$unmsgid]); |
unless ($trgfolder eq 'trash') { |
| &Apache::lonnet::put('email_status'.$trgsuffix,{$unmsgid => $status{$unmsgid}}); |
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{$unmsgid}),$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]); |
| &Apache::lonnet::del('email_status'.$srcsuffix,[$unmsgid]); |
&Apache::lonnet::del('email_status'.$srcsuffix,[$msgid]); |
| } |
} |
| |
|
| # ======================================================= Display a course list |
# ======================================================= Display a course list |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmsg.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface