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

<accessor debug="false">
        <name>ISOcat.access.data.shared</name>
        <descr>Get the list of DCs a specific user shares with others, but (s)he isn't the owner.</descr>
        <param mandatory="true">
                <name>user</name>
                <descr>the user</descr>
                <type canonical="true">string</type>
        </param>
        <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>ISOcat.access.data.user.all</type>
                        <user>var:user</user>
                        <target>var:all</target>
                </instr>
                <instr>
                        <type>sloot.xquery</type>
                        <operator>
                                <xquery>
                                        declare variable $dcs as node() external;
                                        declare variable $user as node() external;
                                        declare variable $uid as node() external;

                                        &lt;dcs type="shared" key="{string($user)}">{
                                                $dcs//dc[@scope='shared']
                                        }&lt;/dcs>
                                </xquery>
                        </operator>
                        <dcs>var:all</dcs>
                        <user>var:user</user>
                        <uid>var:uid</uid>
                        <target>var:shared</target>
                </instr>
                <instr>
                        <type>ISOcat.access.data.selection</type>
                        <dcs>var:shared</dcs>
                        <tree>var:tree</tree>
                        <target>this:response</target>
                </instr>
                <!-- attach the golden thread of this (implicit) DCS -->
                <instr>
                        <type>sloot.xquery</type>
                        <operator>
                                <string>goldenthread:/user/{string($user)}/shared</string>
                        </operator>
                        <user>var:uid</user>
                        <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_shared.exception.xml</trace>
                <throw/>
        </exception>
        <response>
                <debug>ffcpl:/trace/user_shared.response.xml</debug>
                <mime>application/xml</mime>
        </response>
</accessor>