breaks by using --> * <-- for check Digit

[mjohndus]

Hallo,

/* Replace * with missing or check digit. /
->(-) while (($o = st(rr)pos($data, '')) !== false) {
->(+) while (($o = st(r)pos($data, '*')) !== false) {

->(-) for ($i = 0; $i < 13; $i++) {
->(+) for ($i = 0; $i < ($o or 12); $i++) {

breaks by --> * <--
for ($i = 0; $i < (-->13<--); $i++) {
0 1 2 3 4 5 6 7 8 9 10 11 *
" < 13 must be < 12 "

or with while loop: use --> " < $o " <--:
if there is more than one --> * <--
search with --> st(r)pos(...) <-- for first occurrence and
use --> " < $o instead < 12 " <-- for position