Subversion Repositories Sigmater

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;

/