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

[albertel]

albertel		Mon Apr 11 11:52:41 2005 EDT

  Modified files:              
    /loncom/interface	lonwhatsnew.pm 
  Log:
  - if there where N new messages you got a N links for that resource
  
  
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.8 loncom/interface/lonwhatsnew.pm:1.9
--- loncom/interface/lonwhatsnew.pm:1.8	Mon Apr 11 11:33:46 2005
+++ loncom/interface/lonwhatsnew.pm	Mon Apr 11 11:52:40 2005
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.8 2005/04/11 15:33:46 albertel Exp $
+# $Id: lonwhatsnew.pm,v 1.9 2005/04/11 15:52:40 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -416,12 +416,12 @@
                         if ($prevread <$contrib{$id.':timestamp'}) {
                             $$unread{$ressymb}{$unreadcount} = $id.': '.$contrib{$id.':subject'};
                             $unreadcount ++;
-                            push(@{$newdiscussions}, $ressymb);
                         }
                     }
                 }
             }
-        }
+            if ($unreadcount) { push(@{$newdiscussions}, $ressymb); }
+	}
 
 # Check for ungraded problems
         if ($resource->is_problem()) {