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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.1 and 1.3

version 1.1, 2006/04/08 06:53:37 version 1.3, 2006/04/22 17:03:43
Line 116  recipients of the message/e-mail. Line 116  recipients of the message/e-mail.
   
 use strict;  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use vars qw($msgcount);  
 use HTML::TokeParser();  use HTML::TokeParser();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon();  use Apache::loncommon();
Line 173  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 205  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]);
Line 1955  sub handler { Line 1954  sub handler {
 }  }
 # ================================================= Main program, reset counter  # ================================================= Main program, reset counter
   
 BEGIN {  
     $msgcount=0;  
 }  
   
 =pod  =pod
   
 =back  =back
Removed from v.1.1  
changed lines
  Added in v.1.3

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