--- loncom/interface/lonpickcourse.pm 2007/10/03 19:57:29 1.64 +++ loncom/interface/lonpickcourse.pm 2007/10/06 04:32:49 1.65 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.64 2007/10/03 19:57:29 raeburn Exp $ +# $Id: lonpickcourse.pm,v 1.65 2007/10/06 04:32:49 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -176,7 +176,7 @@ sub display_matched_courses { foreach my $course (keys(%courses)) { my $descr; if (ref($courses{$course}) eq 'HASH') { - $descr = &unescape($courses{$course}{'description'}); + $descr = $courses{$course}{'description'}; } elsif ($courses{$course} =~ m/^([^:]*):/i) { $descr = &unescape($1); } else { @@ -200,7 +200,7 @@ sub display_matched_courses { my ($descr,$instcode,$ttype,@owners); if (ref($courses{$course}) eq 'HASH') { $descr = $courses{$course}{'description'}; - $instcode = $courses{$course}{'instcode'}; + $instcode = $courses{$course}{'inst_code'}; $ttype = $courses{$course}{'type'}; push(@owners,&unescape($courses{$course}{'owner'})); if (ref($courses{$course}{'co-owners'}) eq 'ARRAY') { @@ -342,8 +342,7 @@ sub build_filters { 'cog' => &mt('Course Type') ); - $typeselectform = '