create or replace PACKAGE BODY ECOM_LOGIN
AS
FUNCTION AUTHENTICATE(
P_USERNAME IN VARCHAR2 ,
P_PASSWORD IN VARCHAR2)
RETURN BOOLEAN
IS
V_RESULT INTEGER := 0;
L_PASSWORD VARCHAR2(100);
BEGIN
SELECT PASSWORD
INTO L_PASSWORD
FROM MY_USERS
WHERE (UPPER (USERNAME) = UPPER(P_USERNAME)
OR PHONE_NUMBER = P_USERNAME)
AND PIN = 'Y';
IF L_PASSWORD = P_PASSWORD THEN
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;
EXCEPTION
WHEN OTHERS THEN
RETURN FALSE;
END AUTHENTICATE;