|
version 1.66, 2004/02/13 18:25:57
|
version 1.67, 2004/02/16 19:59:49
|
|
Line 1333 sub build_foil_index {
|
Line 1333 sub build_foil_index {
|
| my $a1 = lc($a); |
my $a1 = lc($a); |
| my $b1 = lc($b); |
my $b1 = lc($b); |
| if (exists($Numbers{$a1})) { |
if (exists($Numbers{$a1})) { |
| $a = $Numbers{$a1}; |
$a1 = $Numbers{$a1}; |
| } |
} |
| if (exists($Numbers{$b1})) { |
if (exists($Numbers{$b1})) { |
| $b = $Numbers{$b1}; |
$b1 = $Numbers{$b1}; |
| } |
} |
| if (($a =~/^\d+$/) && ($b =~/^\d+$/)) { |
if (($a1 =~/^\d+$/) && ($b1 =~/^\d+$/)) { |
| return $a <=> $b; |
return $a1 <=> $b1; |
| } else { |
} else { |
| return $a cmp $b; |
return $a1 cmp $b1; |
| } |
} |
| }; |
}; |
| my @Concepts; |
my @Concepts; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonproblemanalysis.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / statistics