--- loncom/interface/lonpickcourse.pm	2007/12/30 23:22:41	1.68
+++ loncom/interface/lonpickcourse.pm	2008/01/02 10:37:58	1.69
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.68 2007/12/30 23:22:41 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.69 2008/01/02 10:37:58 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -239,7 +239,6 @@ sub display_matched_courses {
         }
     }
     my %by_descrip;
-    my $numcourses = keys(%courses);
     foreach my $course (keys(%courses)) {
         my $descr;
         if (ref($courses{$course}) eq 'HASH') {