--- loncom/interface/lonpickcourse.pm 2005/01/27 19:20:55 1.24 +++ loncom/interface/lonpickcourse.pm 2005/01/28 19:26:54 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.24 2005/01/27 19:20:55 raeburn Exp $ +# $Id: lonpickcourse.pm,v 1.25 2005/01/28 19:26:54 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -226,11 +226,7 @@ ENDSCRIPT $descr = &Apache::lonnet::unescape($courses{$course}); } my $description = lc($descr); - if (exists($by_descrip{$description})) { - push @{$by_descrip{$description}}, ($course); - } else { - @{$by_descrip{$description}} = ($course); - } + push (@{$by_descrip{$description}}, $course); } foreach my $description (sort(keys(%by_descrip))) { foreach my $course (@{$by_descrip{$description}}) {