Blame | Last modification | View Log | Download | RSS feed
create or replace procedure CREA_UTENTE_CM(user_name varchar2,nome varchar2,cognome varchar2,email varchar2,cm varchar2) is
-- Cursore sulle comunità montane
CURSOR cur_ragg_comuni IS
select codice_belfiore
from ws_ragg_comuni s
where s.id_rag = cm;
-- codice belfiore del comune
locRecA1 WS_RAGG_COMUNI.CODICE_BELFIORE%TYPE;
-- indice
i NUMBER;
begin
i:=0;
OPEN cur_ragg_comuni;
LOOP
FETCH cur_ragg_comuni INTO locRecA1;
EXIT WHEN cur_ragg_comuni%NOTFOUND;
if i=0 then
crea_utente_comunale(user_name,nome,cognome,email,locRecA1);
else
abilitazione_utente_comune(user_name,locRecA1);
end if;
i:= i+1;
END LOOP;
end CREA_UTENTE_CM;
/