Modulo:CAS: differenze tra le versioni

Versione delle 20:39, 1 nov 2013

Versione delle 22:19, 1 nov 2013

Riga 1:

local p = {}

local dump = {}

local function check_CAS(cas_string)

--Ritorna true se cas_string è un numero CAS valido.

--cas_string deve essere una stringa di 64-10 cifre senza spazi o altri separatori

if #cas_string<64 or #cas_string>10 then

return false

end

Line 12 ⟶ 13:

local moltiplicatore = 0

local not_number = false

local reverse_cas = stringcas_string.reverse(cas_string)

for c in stringreverse_cas:gmatch(reverse_cas, '.') do

cifra = tonumber(c)

if ccifra == nil then

not_number = true

else

somma = somma + moltiplicatore * cifra

end

moltiplicatore = moltiplicatore + 1

end

if not_number then return false end

if modulo(somma % 10) == tonumber(cas_string:sub(-1)) then

return true

else

Line 52 ⟶ 54:

error_string = ''

if check_result then

CAS_formattato = cas_string:sub(1, -4) .. '-' .. cas_string:sub(-3, -2) .. '-' .. cas_string:sub(-1)

else

error_string = '&nbsp;<strong class="error">numero CAS non valido</strong>'

Line 60 ⟶ 62:

{['cas']=CAS_formattato, ['language']='it'})) .. ' ' ..

CAS_formattato .. ']</span><span>' .. error_string

return reply

end