source: cats/ISOcat/trunk/mod-ISOcat-access-data/access/dcs_exists.acc @ 2686

<accessor debug="false">
        <name>ISOcat.access.data.dcs.exists</name>
        <descr>Does this DCS already exist?</descr>
        <param mandatory="true">
                <name>owner</name>
                <descr>the DCS owner</descr>
                <type canonical="true">string</type>
        </param>
        <param mandatory="true">
                <name>name</name>
                <descr>the DCS name</descr>
                <type canonical="true">string</type>
        </param>
        <idoc>
                <instr>
                        <type>ISOcat.access.data.user.id</type>
                        <user>var:owner</user>
                        <target>var:uid</target>
                </instr>
                <instr>
                        <type>sloot.xquery</type>
                        <operator>
                                <xquery>
                                        declare variable $uid as node() external;
                                        declare variable $name as node() external;
                                        
                                        &lt;sql>
                                                SELECT
                                                        id
                                                FROM
                                                        core_data_category_selection
                                                WHERE
                                                        "owner" = {string($uid)}
                                                  AND
                                                        "name" = '{replace(string($name),"'","\\'")}'
                                                ;
                                        &lt;/sql>
                                </xquery>
                        </operator>
                        <uid>var:uid</uid>
                        <name>var:name</name>
                        <target>var:sql</target>
                </instr>
                <accessor-debug>
                        <instr>
                                <type>copy</type>
                                <operand>var:sql</operand>
                                <target>ffcpl:/trace/dcs_exists.sql.xml</target>
                        </instr>
                </accessor-debug>
                <instr>
                        <type>isocat.sqlBooleanQuery</type>
                        <operand>var:sql</operand>
                        <target>this:response</target>
                </instr>
        </idoc>
        <exception>
                <debug/>
                <trace>ffcpl:/trace/dcs_exists.exception.xml</trace>
                <throw/>
        </exception>
        <response>
                <debug>ffcpl:/trace/dcs_exists.response.xml</debug>
                <mime>application/xml</mime>
                <expire>now</expire>
        </response>
</accessor>