--- loncom/interface/lonpickcourse.pm	2006/11/16 13:02:45	1.59
+++ loncom/interface/lonpickcourse.pm	2006/11/29 07:46:39	1.60
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.59 2006/11/16 13:02:45 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.60 2006/11/29 07:46:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -409,7 +409,8 @@ sub search_courses {
                                           undef,undef,$type);
     } else {
         $r->print('<br />');
-        foreach my $cid (sort(&Apache::loncommon::findallcourses())) {
+        my %coursehash = &Apache::loncommon::findallcourses(); 
+        foreach my $cid (sort(keys(%coursehash))) {
             $courses{$cid} = $env{'course.'.$cid.'.description'};
         }
     }