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

<accessor debug="false">
        <name>ISOcat.access.data.user.update</name>
        <descr>Update a users profile.</descr>
        <param mandatory="true">
                <name>user</name>
                <descr>the user login</descr>
                <type canonical="true">string</type>
        </param>
        <param mandatory="true">
                <name>profile</name>
                <descr>the users updated profile</descr>
        </param>
        <idoc>
                <!-- validate the new users profile -->
                <instr>
                        <type>validateRNG</type>
                        <operand>var:profile</operand>
                        <operator>active:ISOcat.access.data.user.profile.schema</operator>
                        <target>var:valid</target>
                </instr>
                <if>
                        <cond>
                                <instr>
                                        <type>copy</type>
                                        <operand>var:valid</operand>
                                        <target>this:cond</target>
                                </instr>
                        </cond>
                        <then>
                                <instr>
                                        <type>xslt2</type>
                                        <operand>var:profile</operand>
                                        <operator>
                                                <xsl:stylesheet
                                                  version="2.0"
                                                  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
                                                  xmlns:isocat="urn:ISOcat"
                                                >
                                                <xsl:variable name="NL" select="system-property('line.separator')"/>
                                                <xsl:template match="/user">
                                                        <sql>
                                                                <xsl:text>UPDATE core_user SET</xsl:text><xsl:value-of select="$NL"/>
                                                                <xsl:for-each select="* except (id,login,access_count,first_access,last_access,type,name,sync)">
                                                                        <xsl:value-of select="name()"/>
                                                                        <xsl:text> = '</xsl:text>
                                                                        <xsl:value-of select="replace(.,&quot;&apos;&quot;,&quot;&apos;&apos;&quot;)"/>
                                                                        <xsl:text>',</xsl:text>
                                                                        <xsl:value-of select="$NL"/>
                                                                </xsl:for-each>
                                                                <xsl:text>sync = true </xsl:text>
                                                                <xsl:text>WHERE login = '</xsl:text>
                                                                <xsl:value-of select="login"/>
                                                                <xsl:text>';</xsl:text>
                                                        </sql>
                                                </xsl:template>
                                                </xsl:stylesheet>
                                        </operator>
                                        <target>var:sql</target>
                                </instr>
                                <accessor-debug>
                                        <instr>
                                                <type>copy</type>
                                                <operand>var:sql</operand>
                                                <target>ffcpl:/trace/user_update.sql.xml</target>
                                        </instr>
                                </accessor-debug>
                                <instr>
                                        <type>sqlUpdate</type>
                                        <operand>var:sql</operand>
                                        <target>var:result</target>
                                </instr>
                                <!-- get the uid -->
                                <instr>
                                        <type>ISOcat.access.data.user.id</type>
                                        <user>var:user</user>
                                        <target>var:uid</target>
                                </instr>
                                <!-- touch the updated user -->
                                <instr>
                                        <type>ISOcat.access.data.user.touch</type>
                                        <user>var:uid</user>
                                        <target>var:void</target>
                                </instr>
                                <!-- hug the context of the updated user -->
                                <instr>
                                        <type>ISOcat.access.data.user.hug</type>
                                        <user>var:uid</user>
                                        <target>var:void</target>
                                </instr>
                                <!-- get the updated profile -->
                                <instr>
                                        <type>ISOcat.access.data.user</type>
                                        <user>var:user</user>
                                        <target>this:response</target>
                                </instr>
                        </then>
                        <else>
                                <instr>
                                        <type>copy</type>
                                        <operand>var:profile</operand>
                                        <target>ffcpl:/trace/user_update.profile.xml</target>
                                </instr>
                                <instr>
                                        <type>copy</type>
                                        <operand>var:valid</operand>
                                        <target>ffcpl:/trace/user_update.profile.invalid.xml</target>
                                </instr>
                                <instr>
                                        <type>throw</type>
                                        <operand>
                                                <ex>
                                                        <id>ISOcat[BAD REQUEST]</id>
                                                        <message>The new users profile is invalid.</message>
                                                </ex>
                                        </operand>
                                </instr>
                        </else>
                </if>
        </idoc>
        <exception>
                <debug/>
                <trace>ffcpl:/trace/user_update.exception.xml</trace>
                <throw/>
        </exception>
        <response>
                <mime>application/xml</mime>
                <expire>now</expire>
        </response>
</accessor>