## PCD_CREER_PROFESSEUR

Doc
Details
Grants
References
Dependencies
Code

TEXT
    PROCEDURE          "PCD_CREER_PROFESSEUR"
    ( p_login IN VARCHAR2
    , p_nom IN VARCHAR2
    , p_prenom IN VARCHAR2
    , p_site IN VARCHAR2
    , p_email IN VARCHAR2
    ) AS
    v_f_type_acteur number;
    v_id_acteur number;
    v_f_statut number;
    v_f_groupe_formateur number;
    v_f_groupe_site number;

    BEGIN
      select p_id into v_f_type_acteur from types_groupes
      where libelle = 'acteur';
      select p_id into v_f_statut from statuts
      where libelle = 'professeur';

      select p_id into v_f_groupe_formateur from groupes
      where libelle = 'formateur';

      select p_id into v_f_groupe_site from groupes
      where upper(libelle) = upper(p_site)
      and f_type in (select p_id from types_groupes where libelle = 'site');

      v_id_acteur := fct_creer_groupe_acteur(p_nom,p_prenom);
      insert into acteurs(pf_groupe,f_statut, login, nom, prenom, email) values(v_id_acteur,v_f_statut,p_login,upper(p_nom),upper(p_prenom),p_email);
      insert into groupes_parentes(pf_pere,pf_fils) values(v_f_groupe_formateur,v_id_acteur);
      insert into groupes_parentes(pf_pere,pf_fils) values(v_f_groupe_site,v_id_acteur);
      exception
      when no_data_found then
      null;
    END PCD_CREER_PROFESSEUR;