ACS3 Data Model

     1: function hp_access_denied_p (fsid IN integer, u_id IN integer)
     2: return integer
     3: IS
     4: 	CURSOR owner_cursor IS
     5: 		select owner_id from users_files
     6: 		where file_id=fsid;
     7: 	owner_id	integer;
     8: BEGIN
     9: 	OPEN owner_cursor;
    10: 	FETCH owner_cursor INTO owner_id;
    11: 	CLOSE owner_cursor;
    12: 	IF owner_id = u_id
    13: 	THEN
    14: 		return 0;
    15: 	ELSE
    16: 		return 1;
    17: 	END IF;
    18: END;