|
Lines 2388-2395
Link Here
|
| 2388 |
$first = lc(substr($fields[0], 0, 1)); |
2388 |
$first = lc(substr($fields[0], 0, 1)); |
| 2389 |
if ($first =~ /^[4567]$/) { |
2389 |
if ($first =~ /^[4567]$/) { |
| 2390 |
$first = '40000000'; |
2390 |
$first = '40000000'; |
| 2391 |
} elsif ($first =~ /^[89ab]$/) { |
2391 |
} elsif ($first =~ /^[89a]$/) { |
| 2392 |
$first = '80000000'; |
2392 |
$first = '80000000'; |
|
|
2393 |
} elsif ($first =~ /^[b]$/) { |
| 2394 |
$first = 'B0000000'; |
| 2393 |
} elsif ($first =~ /^[cd]$/) { |
2395 |
} elsif ($first =~ /^[cd]$/) { |
| 2394 |
$first = 'C0000000'; |
2396 |
$first = 'C0000000'; |
| 2395 |
} elsif ($first =~ /^[ef]$/) { |
2397 |
} elsif ($first =~ /^[ef]$/) { |
