$from_api .= '.' unless $from_api =~ /\./;
        $from_api .= '00';
        $from_api =~ s,^(\d+)\.(\d{2}).*$,${1}${2},;
        $from_api += 0;