--
-- acs_user__unapprove_email/1
--
create or replace function acs_user__unapprove_email(
  integer
) returns int4 as $$

declare
  unapprove_email__user_id      alias for $1;  
begin
    update users
    set email_verified_p = 'f'
    where user_id = unapprove_email__user_id;

    return 0; 
end;$$ language plpgsql;