[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[raeburn]

raeburn		Sun Feb 13 17:44:52 2011 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  - Use a more suitable name for this variable in %env.  
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.230 loncom/interface/lonmsg.pm:1.231
--- loncom/interface/lonmsg.pm:1.230	Wed Nov 10 14:44:50 2010
+++ loncom/interface/lonmsg.pm	Sun Feb 13 17:44:51 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.230 2010/11/10 14:44:50 bisitz Exp $
+# $Id: lonmsg.pm,v 1.231 2011/02/13 17:44:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -578,7 +578,7 @@
 
 sub mynewmail{
 	&newmail();
-	return $env{'user.mailcheck.lastnewmassagetime'} > $env{'user.mailcheck.lastvisit'};
+	return $env{'user.mailcheck.lastnewmessagetime'} > $env{'user.mailcheck.lastvisit'};
 }
 
 
@@ -586,7 +586,7 @@
     if ((time-$env{'user.mailcheck.time'})>300) {
         my %what=&Apache::lonnet::get('email_status',['recnewemail']);
         &Apache::lonnet::appenv({'user.mailcheck.time'=>time});
-		&Apache::lonnet::appenv({'user.mailcheck.lastnewmassagetime'=> $what{'recnewemail'}});
+		&Apache::lonnet::appenv({'user.mailcheck.lastnewmessagetime'=> $what{'recnewemail'}});
         if ($what{'recnewemail'}>0) { return 1; }
     }
     return 0;