source: cats/ISOcat/trunk/mod-ISOcat-access-data/access/user_view.acc @ 2584

<accessor debug="false" deadlock="true" trace="false">
        <name>ISOcat.access.data.user.view</name>
        <descr>Get the list of all DCs a specific user has access to in a specific view.</descr>
        <param mandatory="true">
                <name>user</name>
                <descr>the user</descr>
                <type canonical="true">string</type>
        </param>
        <param>
                <name>view</name>
                <descr>return only data categories in this view</descr>
                <type canonical="true">string</type>
                <source>
                        <param/>
                        <default>
                                <string>isocat</string>
                        </default>
                </source>
        </param>
        <idoc>
                <instr>
                        <type>ISOcat.access.data.user.id</type>
                        <user>var:user</user>
                        <target>var:uid</target>
                </instr>
                <accessor-debug>
                        <instr>
                                <type>sloot.log</type>
                                <operator>
                                        <dbg>DBG: view[{string($view)}]</dbg>
                                </operator>
                                <view>var:view</view>
                        </instr>
                </accessor-debug>
                <instr>
                        <type>ISOcat.access.data.user.all</type>
                        <user>var:user</user>
                        <target>var:all</target>
                </instr>
                <choose>
                        <cond>
                                <instr>
                                        <type>sloot.xpath2eval</type>
                                        <operand>var:view</operand>
                                        <operator>
                                                <xpath>.='isocat'</xpath>
                                        </operator>
                                        <target>this:cond</target>
                                </instr>
                        </cond>
                        <then>
                                <instr>
                                        <type>copy</type>
                                        <operand>var:all</operand>
                                        <target>this:response</target>
                                </instr>
                        </then>
                        <else>
                                <instr>
                                        <type>sloot.xquery</type>
                                        <operator>
                                                <sql>
                                                        (
                                                                -- DCs from the group's DCSs
                                                                SELECT DISTINCT
                                                                        view_dcs.dc
                                                                FROM
                                                                        view_dcs
                                                                JOIN
                                                                        link_dcs_access
                                                                ON
                                                                        link_dcs_access.dcs = view_dcs.dcs
                                                                JOIN
                                                                (
                                                                        (
                                                                                SELECT
                                                                                        id, name
                                                                                FROM
                                                                                        core_adhoc_group
                                                                        )
                                                                        UNION
                                                                        (
                                                                                SELECT
                                                                                        id, name
                                                                                FROM
                                                                                        core_thematic_domain_group
                                                                        )
                                                                ) AS grp
                                                                ON
                                                                        link_dcs_access.account = grp.id
                                                                WHERE
                                                                        grp.name = '{replace($view,'''','''''')}'
                                                        )                                                                       
                                                        UNION
                                                        (
                                                                -- if the view refers to a TDG we also need to include the DCs in the TDG's profiles
                                                                SELECT DISTINCT
                                                                        view_profile.dc
                                                                FROM
                                                                        view_profile
                                                                JOIN
                                                                        core_profile
                                                                ON
                                                                        view_profile.profile = core_profile.id
                                                                JOIN
                                                                        core_thematic_domain_group
                                                                ON
                                                                        core_profile.tdg = core_thematic_domain_group.id
                                                                WHERE
                                                                        core_thematic_domain_group.name = '{replace($view,'''','''''')}'
                                                        )
                                                        ;
                                                </sql>
                                        </operator>
                                        <view>var:view</view>
                                        <target>var:query</target>
                                </instr>
                                <accessor-debug>
                                        <instr>
                                                <type>copy</type>
                                                <operand>var:query</operand>
                                                <target>ffcpl:/trace/user_view.sql.xml</target>
                                        </instr>
                                </accessor-debug>
                                <instr>
                                        <type>ISOcat.access.data.query</type>
                                        <query>var:query</query>
                                        <target>var:result</target>
                                </instr>
                                <accessor-debug>
                                        <instr>
                                                <type>copy</type>
                                                <operand>var:result</operand>
                                                <target>ffcpl:/trace/user_view.sql.result.xml</target>
                                        </instr>
                                </accessor-debug>
                                <instr>
                                        <type>xslt2</type>
                                        <operand>var:all</operand>
                                        <operator>
                                                <xsl:stylesheet version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
                                                        
                                                        <xsl:param name="view"/>
                                                        <xsl:param name="dcs"/>
                                                        
                                                        <xsl:key name="dc" match="dc" use="@ref"/>
                                                        
                                                        <xsl:template match="dc">
                                                                <!-- private and shared DCs -->
                                                                <xsl:copy-of select="."/>
                                                        </xsl:template>
                                                        
                                                        <xsl:template match="dc[@scope='public']">
                                                                <xsl:choose>
                                                                        <xsl:when test="contains(@mode,'w')">
                                                                                <!-- public and shared -->
                                                                                <xsl:copy-of select="."/>
                                                                        </xsl:when>
                                                                        <xsl:when test="exists($dcs//row[dc=current()/@ref])">
                                                                                <!-- public and in view -->
                                                                                <xsl:copy-of select="."/>
                                                                        </xsl:when>
                                                                        <!-- skip: only public and not in view -->
                                                                </xsl:choose>
                                                        </xsl:template>
                                                        
                                                        <xsl:template match="dcs">
                                                                <dcs type="view" key="{$view}">
                                                                        <xsl:apply-templates/>
                                                                </dcs>
                                                        </xsl:template>
                                                        
                                                        <xsl:template match="null|void">
                                                                <dcs/>
                                                        </xsl:template>
                                                        
                                                </xsl:stylesheet>
                                        </operator>
                                        <view>var:view</view>
                                        <dcs>var:result</dcs>
                                        <target>this:response</target>
                                </instr>
                                <accessor-debug>
                                        <instr>
                                                <type>copy</type>
                                                <operand>this:response</operand>
                                                <target>ffcpl:/trace/user_view.dcs.result.xml</target>
                                        </instr>
                                </accessor-debug>
                                <!-- attach the golden thread of this (implicit) DCS -->
                                <instr>
                                        <type>sloot.xquery</type>
                                        <operator>
                                                <string>goldenthread:/user/{string($uid)}/view/{string($view)}</string>
                                        </operator>
                                        <uid>var:uid</uid>
                                        <view>var:view</view>
                                        <target>var:thread</target>
                                </instr>
                                <instr>
                                        <type>sloot.attachGoldenThread</type>
                                        <operand>this:response</operand>
                                        <param>var:thread</param>
                                        <target>this:response</target>
                                </instr>
                        </else>
                </choose>
        </idoc>
        <exception>
                <debug/>
                <trace>ffcpl:/trace/user_view.exception.xml</trace>
                <throw/>
        </exception>
        <response>
                <debug>ffcpl:/trace/user_view.response.xml</debug>
                <mime>application/xml</mime>
        </response>
</accessor>