Forum OpenACS Q&A: Retrieve object_id of System Owner?

The reason I ask is that I want to give ownership of a high-level object to the system owner when I create the object on a package's "after_install" callback.

Randy

set context_root_id [db_string select_context_root_id {
    select acs.magic_object_id('default_context') from dual
}]

set admin_user_id [db_string select_admin_user_id {
    select min(user_id)
    from users
    where acs_permission.permission_p(:context_root_id, user_id, 'admin') = 't'
}]

I did look for a magic object before I asked the question and saw several useful pieces of information stored there, but this was not one of them.

I guess by "the permissions view" you mean acs_permissions_all? Is there any reason that I shouldn't also join with the acs_magic_objects table? Something like:

    set admin_user_id [db_string select_admin_user_id {
	select min(user_id)
	from users u, acs_permissions_all p, acs_magic_objects a
	where u.user_id = p.grantee_id
	and p.object_id = a.object_id
	and a.name = 'default_context'
    }]

Can you explain why the site-wide admin needs to "own" an object?  Being site-wide admin means you have admin privilege over every object.

Besides that, I think defining the sitewide admin as a magic object is a great idea.

Randy

ad_proc -private admin_user_id_get {} {

    Return the user_id (object_id) of the System Owner account.
    May be able to simplify and streamline the query used to 
    retrieve this info if bootstrap-installer patched to save
    this user_id in the acs_magic_objects table.

    @see https://openacs.org/forums/message-view?message_id=118128
} {
    return [db_string admin_user_id {
      select
      	min(user_id)
      from users u, acs_permissions_all p, acs_magic_objects a
      where u.user_id = p.grantee_id
      and p.object_id = a.object_id
      and a.name = 'default_context'
    }]
}