begin 

declare
	l_portalSchema_public varchar2(100);

	procedure exec(p_stmt in varchar2)
	is
	begin
		execute immediate p_stmt;
	exception
		when others
		then
			null;
	end;

begin

	select ~portalSchema.wwctx_api.get_public_schema into l_portalSchema_public from dual;

	exec('grant execute on wmp_launcher_portlet to ' || l_portalSchema_public);
	exec('grant execute on wmp_navigator_portlet to ' || l_portalSchema_public);
	exec('grant execute on wmp_reports_portlet to ' || l_portalSchema_public);
	exec('grant execute on wmp_favorites_portlet to ' || l_portalSchema_public);
	exec('grant execute on wmp_administrator_portlet to ' || l_portalSchema_public);
	exec('grant execute on wmp_pages to ' || l_portalSchema_public);
	exec('grant execute on wmp_api_call to ' || l_portalSchema_public);
	exec('grant execute on wmp_favorites_pages to ' || l_portalSchema_public);
	exec('grant execute on wmp_administration_pages to ' || l_portalSchema_public);
	exec('grant execute on wmp_api_doc to ' || l_portalSchema_public);
	exec('grant execute on wmp_api_favorites to ' || l_portalSchema_public);
	exec('grant execute on wmp_lia to ' || l_portalSchema_public);
	exec('grant execute on lia_client to '|| l_portalSchema_public);

	exec('grant select on wmp_binary_docs to '|| l_portalSchema_public);
end;

end;