--- loncom/interface/lonmsgdisplay.pm 2006/04/08 06:58:28 1.2 +++ loncom/interface/lonmsgdisplay.pm 2006/04/22 17:03:43 1.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging display # -# $Id: lonmsgdisplay.pm,v 1.2 2006/04/08 06:58:28 albertel Exp $ +# $Id: lonmsgdisplay.pm,v 1.3 2006/04/22 17:03:43 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -172,7 +172,7 @@ sub scrollbuttons { sub statuschange { my ($msgid,$newstatus,$folder)=@_; - my $suffix=&foldersuffix($folder); + my $suffix=&Apache::lonmsg::foldersuffix($folder); my %status=&Apache::lonnet::get('email_status'.$suffix,[$msgid]); if ($status{$msgid}=~/^error\:/) { $status{$msgid}=''; } unless ($status{$msgid}) { $status{$msgid}='new'; } @@ -204,8 +204,8 @@ sub makefolder { sub movemsg { my ($msgid,$srcfolder,$trgfolder)=@_; if ($srcfolder eq 'new') { $srcfolder=''; } - my $srcsuffix=&foldersuffix($srcfolder); - my $trgsuffix=&foldersuffix($trgfolder); + my $srcsuffix=&Apache::lonmsg::foldersuffix($srcfolder); + my $trgsuffix=&Apache::lonmsg::foldersuffix($trgfolder); # Copy message my %message=&Apache::lonnet::get('nohist_email'.$srcsuffix,[$msgid]);