[BACK]Return to lonmsg.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmsg.pm between versions 1.126 and 1.127

version 1.126, 2005/01/01 17:58:48 version 1.127, 2005/01/01 18:24:12
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]);      my %status=&Apache::lonnet::get('email_status'.$srcsuffix,[$msgid]);
     &Apache::lonnet::put('email_status'.$trgsuffix,{$unmsgid => $status{$unmsgid}});      &Apache::lonnet::put('email_status'.$trgsuffix,{$msgid => $status{$msgid}});
 # See if was deleted -> becomes "read" in trash  # See if was deleted -> becomes "read" in trash
     my $currentstatus=(&unpackmsgid($status{$unmsgid}),$srcfolder);      my $currentstatus=(&unpackmsgid($status{$msgid}),$srcfolder);
     if ($currentstatus eq 'deleted') {      if ($currentstatus eq 'deleted') {
  &statuschange($msgid,'read',$trgfolder);   &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
Removed from v.1.126  
changed lines
  Added in v.1.127

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>