source: ISOcat/trunk/mod-ISOcat-access-data/access/user_all.acc @ 2029

<accessor debug="false" deadlock="true" trace="false">
        <name>ISOcat.access.data.user.all</name>
        <descr>Get the list of all DCs a specific user has access to.</descr>
        <param mandatory="true">
                <name>user</name>
                <descr>the user</descr>
                <type canonical="true">string</type>
        </param>
<!-- TODO
        <param>
                <name>tree</name>
                <descr>show hierarchical DC relations (false, simple, complex, true)</descr>
                <type canonical="true">string</type>
                <source>
                        <param/>
                        <nvp/>
                        <default>
                                <string>false</string>
                        </default>
                </source>
        </param>
-->
        <idoc>
                <instr>
                        <type>ISOcat.access.data.user.id</type>
                        <user>var:user</user>
                        <target>var:uid</target>
                </instr>
                <instr>
                        <type>sloot.xquery</type>
                        <operator>
                                <xquery>
                                        declare variable $uid as node() external;
                                        
                                        &lt;sql>
                                                SELECT
                                                        core_data_category.id AS dc,
                                                        core_data_category.owner AS owner,
                                                        CASE DC.scope
                                                                WHEN 1 THEN 'private'
                                                                WHEN 2 THEN 'shared'
                                                                WHEN 3 THEN 'public'
                                                        END AS scope,
                                                        DC.write AS write
                                                FROM (
                                                        SELECT
                                                           dc,
                                                           bool_or(write) AS write,
                                                           min(scope) AS scope
                                                        FROM (
                                                           ( -- all public DCs (read access)
                                                               SELECT DISTINCT
                                                                   id AS dc,
                                                                   false AS write,
                                                                   3 AS scope
                                                               FROM
                                                                   core_data_category
                                                               WHERE
                                                                   private = false
                                                           )
                                                           UNION
                                                           ( -- all owned DCs (write access)
                                                               SELECT DISTINCT
                                                                   core_data_category.id AS dc,
                                                                   true AS write,
                                                                   1 AS scope
                                                               FROM
                                                                   core_data_category
                                                               WHERE
                                                                   core_data_category.owner = {string($uid)}
                                                           )
                                                           UNION
                                                           ( -- shared DCs by the owner
                                                               SELECT DISTINCT
                                                                   dc,
                                                                   CASE view_dc_access.rights
                                                                       WHEN 'r' THEN false
                                                                       ELSE true
                                                                   END AS write,
                                                                   2 AS scope
                                                               FROM
                                                                   view_dc_access
                                                               WHERE
                                                                   view_dc_access.account = {string($uid)}
                                                           )
                                                           UNION
                                                           ( -- shared DCs by a non-owner
                                                                   SELECT DISTINCT
                                                                       view_dcs_dc.dc,
                                                                       false AS write,
                                                                       2 AS scope
                                                                   FROM
                                                                       view_dcs_dc
                                                                   JOIN
                                                                       view_dcs_access
                                                                   ON
                                                                       view_dcs_dc.dcs = view_dcs_access.dcs
                                                                   WHERE
                                                                           view_dcs_access.account = {string($uid)}
                                                           )
                                                           UNION
                                                           ( -- all DCs contributed to (write access)
                                                               SELECT DISTINCT
                                                                   dc,
                                                                   true AS write,
                                                                   2 AS scope
                                                               FROM
                                                                   core_submission_group
                                                               JOIN
                                                                   link_group_members
                                                               ON
                                                                   core_submission_group.id = link_group_members.group
                                                               WHERE
                                                                   link_group_members.member = {string($uid)}
                                                           )
                                                        ) AS DCs
                                                        GROUP BY
                                                           dc
                                                ) AS DC
                                                JOIN
                                                        core_data_category
                                                ON
                                                        core_data_category.id = DC.dc
                                                ; 
                                        &lt;/sql>
                                </xquery>
                        </operator>
                        <uid>var:uid</uid>
                        <target>var:query</target>
                </instr>
                <accessor-debug>
                        <instr>
                                <type>copy</type>
                                <operand>var:query</operand>
                                <target>ffcpl:/trace/user_all.sql.xml</target>
                        </instr>
                </accessor-debug>
                <instr>
                        <type>ISOcat.access.data.query</type>
                        <query>var:query</query>
                        <target>var:result</target>
                </instr>
                <instr>
                        <type>xslt2</type>
                        <operand>var:result</operand>
                        <operator>
                                <xsl:stylesheet version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
                                        <xsl:param name="user"/>

                                        <xsl:template match="row">
                                                <dc ref="{dc}" mode="{if (write='true') then ('rw') else ('r')}" scope="{scope}" owner="{owner}"/>
                                        </xsl:template>

                                        <xsl:template match="results">
                                                <dcs type="all" key="{$user}">
                                                        <xsl:apply-templates/>
                                                </dcs>
                                        </xsl:template>

                                        <xsl:template match="null|void">
                                                <dcs/>
                                        </xsl:template>
                                </xsl:stylesheet>
                        </operator>
                        <user>var:user</user>
                        <target>this:response</target>
                </instr>
                <!-- attach the golden thread of this (implicit) DCS -->
                <instr>
                        <type>sloot.xquery</type>
                        <operator>
                                <xquery>
                                        declare variable $uid as node() external;
                                        
                                        &lt;string>goldenthread:/user/{string($uid)}/all&lt;/string>
                                </xquery>
                        </operator>
                        <uid>var:uid</uid>
                        <target>var:thread</target>
                </instr>
                <instr>
                        <type>sloot.attachGoldenThread</type>
                        <operand>this:response</operand>
                        <param>var:thread</param>
                        <target>this:response</target>
                </instr>
        </idoc>
        <exception>
                <debug/>
                <trace>ffcpl:/trace/user_all.exception.xml</trace>
                <throw/>
        </exception>
        <response>
                <debug>ffcpl:/trace/user_all.response.xml</debug>
                <mime>application/xml</mime>
        </response>
</accessor>