Неверная обработка поля "сумма" при генерации счет
Добавлено: Сб май 19, 2007 10:06 am
В случае если поле "сумма" имеет вид 100.5 (с одной цифрой после точки), конструкция
$second =~ s/(.*)(\.)(\d\d)(.*)/$3/;
в функции int2ml работает неверно.
Поменял на такое:
$second =~ s/(.*)(\.)(\d\d?)(.*)/$3/;
if (length $second < 2 ) {
$second .= "0";
}
$second =~ s/(.*)(\.)(\d\d)(.*)/$3/;
в функции int2ml работает неверно.
Поменял на такое:
$second =~ s/(.*)(\.)(\d\d?)(.*)/$3/;
if (length $second < 2 ) {
$second .= "0";
}