--- loncom/interface/lonpickcourse.pm 2008/01/20 22:47:37 1.67.2.3 +++ 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.3 2008/01/20 22:47:37 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"; } @@ -474,8 +475,11 @@ $multelement ''."\n"; } - $output .= '

'."\n".''."\n".'
'."\n"; + $output .= qq| +

+ +
+|; return $output; }