iNextrix /
ASTPP
| @@ 1566-1578 (lines=13) @@ | ||
| 1563 | // calculate check digit C |
|
| 1564 | $p = 1; |
|
| 1565 | $check = 0; |
|
| 1566 | for ($i = ($len - 1); $i >= 0; --$i) { |
|
| 1567 | $digit = $code{$i}; |
|
| 1568 | if ($digit == '-') { |
|
| 1569 | $dval = 10; |
|
| 1570 | } else { |
|
| 1571 | $dval = intval($digit); |
|
| 1572 | } |
|
| 1573 | $check += ($dval * $p); |
|
| 1574 | ++$p; |
|
| 1575 | if ($p > 10) { |
|
| 1576 | $p = 1; |
|
| 1577 | } |
|
| 1578 | } |
|
| 1579 | $check %= 11; |
|
| 1580 | if ($check == 10) { |
|
| 1581 | $check = '-'; |
|
| @@ 1588-1600 (lines=13) @@ | ||
| 1585 | // calculate check digit K |
|
| 1586 | $p = 1; |
|
| 1587 | $check = 0; |
|
| 1588 | for ($i = $len; $i >= 0; --$i) { |
|
| 1589 | $digit = $code{$i}; |
|
| 1590 | if ($digit == '-') { |
|
| 1591 | $dval = 10; |
|
| 1592 | } else { |
|
| 1593 | $dval = intval($digit); |
|
| 1594 | } |
|
| 1595 | $check += ($dval * $p); |
|
| 1596 | ++$p; |
|
| 1597 | if ($p > 9) { |
|
| 1598 | $p = 1; |
|
| 1599 | } |
|
| 1600 | } |
|
| 1601 | $check %= 11; |
|
| 1602 | $code .= $check; |
|
| 1603 | ++$len; |
|
