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; |