AcceptAllRightsCtrl

Source code:

<!--

Sure!  We accept all rights we get granted.  Actually this is not
wise, but ok for now.

Furthermore we ignore that grants could also be in any namespace
but the CoreAPI.  The kernel will take care however.

-->
<when xmlns="http://www.askemos.org/2000/NameSpaceDSSSL" xmlns:mind="http://www.askemos.org/2000/CoreAPI" test="
 (eq? &apos;grant  (gi (children (current-node)))) " xml:space="default">
 <mind:reply>
  <copy-of select="(grove-root (current-node))"></copy-of>
  <copy-of select="((sxpath &apos;(grant right)) (current-node))"></copy-of>
  <mind:output method="xml"></mind:output>
 </mind:reply>
</when>