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

<accessor debug="false">
        <name>ISOcat.access.data.lock</name>
        <descr>Get a lock.</descr>
        <param mandatory="true">
                <name>lock</name>
                <descr>the lock id</descr>
                <type canonical="true">string</type>
        </param>
        <param mandatory="true">
                <name>register</name>
                <descr>register the access</descr>
                <type canonical="true">boolean</type>
                <source>
                        <param/>
                        <nvp/>
                        <default>
                                <b>t</b>
                        </default>
                </source>
        </param>
        <idoc>
                <instr>
                        <type>isocat.sloot.dbx</type>
                        <lock>var:lock</lock>
                        <operator>ffcpl:/dbx/session-lock.xml</operator>
                        <debug>var:accessor-debug</debug>
                        <target>this:response</target>
                </instr>
                <if>
                        <cond>
                                <instr>
                                        <type>copy</type>
                                        <operand>var:register</operand>
                                        <target>this:cond</target>
                                </instr>
                        </cond>
                        <then>
                                <!-- and now register this access -->
                                <instr>
                                        <type>sloot.xquery</type>
                                        <operator>
                                                <xquery>
                                                        declare variable $lock as node() external;
                                                        
                                                        &lt;sql>
                                                        UPDATE  generic_lock
                                                        SET             last_access = ('now'::text)::timestamp with time zone
                                                        WHERE   id = '{string($lock)}'
                                                        ;
                                                        &lt;/sql>
                                                </xquery>
                                        </operator>
                                        <lock>var:lock</lock>
                                        <target>var:sql</target>
                                </instr>
                                <accessor-debug>
                                        <instr>
                                                <type>copy</type>
                                                <operand>var:sql</operand>
                                                <target>ffcpl:/trace/lock.sql.xml</target>
                                        </instr>
                                </accessor-debug>
                                <instr>
                                        <type>isocat.sqlUpdate</type>
                                        <operand>var:sql</operand>
                                        <target>var:void</target>
                                </instr>
                        </then>
                </if>
        </idoc>
        <exception>
                <debug/>
                <trace>ffcpl:/trace/lock.exception.xml</trace>
                <throw/>
        </exception>
        <response>
                <debug>ffcpl:/trace/lock.response.xml</debug>
                <mime>application/xml</mime>
                <expire>now</expire>
        </response>
</accessor>