--- loncom/interface/lonannounce.pm	2006/10/10 01:52:45	1.61
+++ loncom/interface/lonannounce.pm	2006/11/29 07:46:39	1.62
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Announce
 #
-# $Id: lonannounce.pm,v 1.61 2006/10/10 01:52:45 albertel Exp $
+# $Id: lonannounce.pm,v 1.62 2006/11/29 07:46:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -358,7 +358,8 @@ ENDDIA
 # ----------------------------------------------------- Summarize all calendars
 sub get_all_calendars {
     my %allcal=();
-    foreach my $course (sort(&Apache::loncommon::findallcourses())) {
+    my %courses = &Apache::loncommon::findallcourses();
+    foreach my $course (sort(keys(%courses))) {
 	%allcal=(%allcal,&readcalendar($course));
     }
     return %allcal;