Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- create PACKAGE BODY CINEMA_PACKAGE AS
- -- LOGIN - provjera korisnika u bazi
- procedure p_check_login(i_email in varchar2,
- i_password in varchar2,
- o_login out number,
- o_errcod out number,
- o_message out varchar2) AS
- l_email varchar2(30);
- l_pass varchar2(30);
- l_id number(8);
- BEGIN
- l_email := null;
- l_pass := null;
- l_id := null;
- o_login := 0;
- o_errcod := 0;
- o_message := ' ';
- SELECT
- k.user_id,
- k.email,
- k.lozinka
- INTO
- l_id,
- l_email,
- l_pass
- FROM
- korisnici k
- WHERE
- k.email = i_email AND
- k.lozinka = i_password;
- o_login := 1;
- EXCEPTION
- WHEN OTHERS THEN
- o_login := 3;
- o_errcod := 103;
- o_message := 'Dogodila se greška u obradi podataka. Molimo pokušajte ponovno';
- end p_check_login;
- -------unos korisnika
- procedure p_insert_user(i_ime in varchar2,
- i_prezime in varchar2,
- i_email in varchar2,
- i_lozinka in varchar2,
- o_success out number,
- o_errcod out number,
- o_message out varchar2) AS
- l_email varchar2(30);
- BEGIN
- l_email := ' ';
- o_success := 0;
- o_errcod := 0;
- o_message := ' ';
- INSERT INTO KORISNICI (ime,prezime,email,lozinka)
- VALUES (i_ime,i_prezime,i_email,i_lozinka);
- SELECT
- k.email
- INTO
- l_email
- FROM
- korisnici k
- WHERE
- user_id = (SELECT MAX(user_id) FROM KORISNICI);
- IF (i_email = l_email) THEN
- o_success := 1;
- ELSE
- o_success := 2;
- END IF;
- EXCEPTION
- WHEN OTHERS THEN
- o_success := 3;
- o_errcod := 102;
- o_message := 'Dogodila se greška u unosu podataka. Molimo pokušajte ponovno';
- end p_insert_user;
- END CINEMA_PACKAGE;
- /
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement