|
version 1.127, 2005/01/01 18:24:12
|
version 1.129, 2005/01/04 15:36:38
|
|
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]); |
|
Line 678 ENDDISHEADER
|
Line 675 ENDDISHEADER
|
| &Apache::loncoursedata::CL_FULLNAME(), |
&Apache::loncoursedata::CL_FULLNAME(), |
| &Apache::loncoursedata::CL_SECTION()]); |
&Apache::loncoursedata::CL_SECTION()]); |
| next if ($status ne 'Active'); |
next if ($status ne 'Active'); |
| my $key = 'send_to_&&&'.$section.'&&&'.$student; |
my $key = 'send_to_&&&'.$section.'&&&_'.$student; |
| if (! defined($fullname) || $fullname eq '') { $fullname = $sname; } |
if (! defined($fullname) || $fullname eq '') { $fullname = $sname; } |
| $r->print('<tr><td><label>'. |
$r->print('<tr><td><label>'. |
| qq{<input type="checkbox" name="$key">}.(' 'x2). |
qq{<input type="checkbox" name="$key">}.(' 'x2). |
![[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