|
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}}) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpickcourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface