1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| PROCEDURE "VERIF_LOGIN" (log1 utilisateur.login%type default '' ,passwd utilisateur.mot_passe%type default '' )
is
recuser utilisateur%rowtype;
mot_passwd utilisateur.mot_passe%TYPE := password.encrypt(passwd);
--mot_passwd utilisateur.mot_passe% TYPE := passwd;
begin
if(log1 is not null and passwd is not null)
then
select * into recuser from utilisateur where login=log1 and mot_passe=mot_passwd ;
if(recuser.login is not null)
then
pa_cookie.creation_cookie(log1);
if(recuser.typ ='0')
then
ui_menu.index_projet;
else
if(recuser.typ ='2')
then
ui_menu.index_admin;
else
if(recuser.typ ='1')
then
ui_menu.index_prof;
end if;
end if;
end if;
else
ui_login.login('Veuillez entrer un login et un mot de passe valide ...');
end if;
else
ui_login.login('Veuillez entrer un login et un mot de passe ...');
end if;
EXCEPTION
when others then
ui_login.login('exception ...');
htp.br;
end; |
Partager