--- loncom/interface/lonpickcourse.pm 2007/12/30 23:22:41 1.68 +++ loncom/interface/lonpickcourse.pm 2008/01/20 00:15:02 1.70 @@ -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.70 2008/01/20 00:15:02 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') { @@ -475,11 +474,8 @@ $multelement ''."\n"; } - $output .= qq| -

- -
-|; + $output .= '

'."\n".''."\n".'
'."\n"; return $output; }