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;
/