|
version 1.8.4.1, 2009/12/07 18:37:11
|
version 1.8.4.2, 2009/12/07 18:47:31
|
|
Line 113 sub gcitest_switcher {
|
Line 113 sub gcitest_switcher {
|
| my $clean_title = $courses{$course}{'description'}; |
my $clean_title = $courses{$course}{'description'}; |
| $clean_title =~ s/\W+//g; |
$clean_title =~ s/\W+//g; |
| if ($clean_title eq '') { |
if ($clean_title eq '') { |
| $clean_title = $courseinfo{$course}{'description'}; |
$clean_title = $courses{$course}{'description'}; |
| } |
} |
| push(@{$Sortby{$clean_title}},$course); |
push(@{$Sortby{$clean_title}},$course); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmainmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface