--- loncom/interface/lonwhatsnew.pm	2010/01/27 13:08:01	1.99
+++ loncom/interface/lonwhatsnew.pm	2010/02/28 22:38:11	1.101
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.99 2010/01/27 13:08:01 wenzelju Exp $
+# $Id: lonwhatsnew.pm,v 1.101 2010/02/28 22:38:11 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -974,6 +974,9 @@ sub check_thresholds {
         if ($resource->handgrade($part) eq 'yes') {
             next;
         }
+        if ($resource->is_anonsurvey($part)) {
+            next;
+        }
         if ($resource->is_survey($part)) {
             next;
         }
@@ -1166,7 +1169,6 @@ sub getnormalmail {
             &Apache::lonmsg::unpackmsgid($msgid);
         if (($fromcid) && ($fromcid eq $env{'request.course.id'})) {
             if (defined($sendtime) && $sendtime!~/error/) {
-                my $numsendtime = $sendtime;
                 if ($status eq 'new') {
                 $sendtime = &Apache::lonlocal::locallocaltime($sendtime);
 		    $msgcount ++;
@@ -1198,7 +1200,6 @@ sub getcritmail {
             &Apache::lonmsg::unpackmsgid($msgid);
         if (($fromcid) && ($fromcid eq  $env{'request.course.id'})) {
             if (defined($sendtime) && $sendtime!~/error/) {
-                my $numsendtime = $sendtime;
                 $sendtime = &Apache::lonlocal::locallocaltime($sendtime);
                 $critmsgcount ++;
                 if ($shortsubj eq '') {