RevokeCtrl

Source code:

<dsssl:when xmlns:a="http://www.askemos.org/2005/CoreAPI#" xmlns:dsssl="http://www.askemos.org/2005/NameSpaceDSSSL/" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" test="(equal? (data (form-field &quot;action&quot; (current-node))) &quot;revoke&quot;)">
 <a:reply>
  <a:become>
   <dsssl:copy-of select="(grove-root (current-node))"></dsssl:copy-of>
  </a:become>
  <a:revoke>
   <a:from>
    <dsssl:copy-of select="(form-field &apos;from (current-node))"></dsssl:copy-of>
   </a:from>
   <a:right>
    <dsssl:copy-of select="(form-field &apos;right (current-node))"></dsssl:copy-of>
   </a:right>
  </a:revoke>
 </a:reply>
</dsssl:when>