version 1.24, 2005/01/27 19:20:55
|
version 1.25, 2005/01/28 19:26:54
|
Line 226 ENDSCRIPT
|
Line 226 ENDSCRIPT
|
$descr = &Apache::lonnet::unescape($courses{$course}); |
$descr = &Apache::lonnet::unescape($courses{$course}); |
} |
} |
my $description = lc($descr); |
my $description = lc($descr); |
if (exists($by_descrip{$description})) { |
push (@{$by_descrip{$description}}, $course); |
push @{$by_descrip{$description}}, ($course); |
|
} else { |
|
@{$by_descrip{$description}} = ($course); |
|
} |
|
} |
} |
foreach my $description (sort(keys(%by_descrip))) { |
foreach my $description (sort(keys(%by_descrip))) { |
foreach my $course (@{$by_descrip{$description}}) { |
foreach my $course (@{$by_descrip{$description}}) { |