--- loncom/interface/lonpickcourse.pm 2008/01/02 11:25:38 1.67.2.2
+++ loncom/interface/lonpickcourse.pm 2007/12/30 23:22:41 1.68
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a course
#
-# $Id: lonpickcourse.pm,v 1.67.2.2 2008/01/02 11:25:38 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.68 2007/12/30 23:22:41 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -239,6 +239,7 @@ sub display_matched_courses {
}
}
my %by_descrip;
+ my $numcourses = keys(%courses);
foreach my $course (keys(%courses)) {
my $descr;
if (ref($courses{$course}) eq 'HASH') {
@@ -452,9 +453,9 @@ $multelement
if ($domainselectform) {
$output .= $lt{'cdo'}.': '.$domainselectform.'
'."\n";
}
-# if ($typeselectform) {
-# $output .= $lt{'cog'}.': '.$typeselectform.'
'."\n";
-# }
+ if ($typeselectform) {
+ $output .= $lt{'cog'}.': '.$typeselectform.'
'."\n";
+ }
if ($instcodeform) {
$output .= $lt{'cin'}.': '.$instcodeform.'
'."\n";
}