loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2006/04/08 06:58:28	version 1.3, 2006/04/22 17:03:43
Line 172 sub scrollbuttons {	Line 172 sub scrollbuttons {

sub statuschange {	sub statuschange {
my ($msgid,$newstatus,$folder)=@_;	my ($msgid,$newstatus,$folder)=@_;
my $suffix=&foldersuffix($folder);	my $suffix=&Apache::lonmsg::foldersuffix($folder);
my %status=&Apache::lonnet::get('email_status'.$suffix,[$msgid]);	my %status=&Apache::lonnet::get('email_status'.$suffix,[$msgid]);
if ($status{$msgid}=~/^error\:/) { $status{$msgid}=''; }	if ($status{$msgid}=~/^error\:/) { $status{$msgid}=''; }
unless ($status{$msgid}) { $status{$msgid}='new'; }	unless ($status{$msgid}) { $status{$msgid}='new'; }
Line 204 sub makefolder {	Line 204 sub makefolder {
sub movemsg {	sub movemsg {
my ($msgid,$srcfolder,$trgfolder)=@_;	my ($msgid,$srcfolder,$trgfolder)=@_;
if ($srcfolder eq 'new') { $srcfolder=''; }	if ($srcfolder eq 'new') { $srcfolder=''; }
my $srcsuffix=&foldersuffix($srcfolder);	my $srcsuffix=&Apache::lonmsg::foldersuffix($srcfolder);
my $trgsuffix=&foldersuffix($trgfolder);	my $trgsuffix=&Apache::lonmsg::foldersuffix($trgfolder);

# Copy message	# Copy message
my %message=&Apache::lonnet::get('nohist_email'.$srcsuffix,[$msgid]);	my %message=&Apache::lonnet::get('nohist_email'.$srcsuffix,[$msgid]);