CreateDocCtrl

Source code:

<dsssl:when xmlns:dsssl="http://www.askemos.org/2000/NameSpaceDSSSL" xmlns:mind="http://www.askemos.org/2000/CoreAPI" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" test="
              (equal? &quot;new&quot; (data (form-field &apos;action (current-node))))
    ">
 <mind:reply>
  <dsssl:copy-of select="(grove-root (current-node))"></dsssl:copy-of>
  <mind:link name="last">
   <mind:new>
    <xsl:attribute name="action">
     <dsssl:copy-of select="(data (form-field &quot;newaction&quot; (current-node)))"></dsssl:copy-of>
    </xsl:attribute>
    <xsl:attribute name="protection">
     <dsssl:copy-of select="(data (form-field &quot;protection&quot; (current-node)))"></dsssl:copy-of>
    </xsl:attribute>
    <xsl:attribute name="initialize">
     <dsssl:copy-of select="(data (form-field &quot;initialize&quot; (current-node)))"></dsssl:copy-of>
    </xsl:attribute>
    <dsssl:copy-of select="
 (fetch (parsed-locator (data (form-field &quot;read&quot; (current-node))))
        body: (xml-parse (data (children (document-element (form-field &quot;body&quot; (current-node)))))))
"></dsssl:copy-of>
   </mind:new>
  </mind:link>
  <mind:output method="text/xml"></mind:output>
 </mind:reply>
</dsssl:when>