RightsAdministrationCtrl

Source code:

<!--

This control answers reacts upon the SOAP message sent from a
GCAICtrl to the user place.

The XPath implementation still lacks namespace matches, hence
we can't yet implement this as just a template match as is
should be.  Hence the trick with the xsl:when.

Requests are only honored, if they originate from the place linked as
"rights".  CAUTION make sure that the user can't accidentally link
dangerous thigs there.

-->
<dsssl:when xmlns:dsssl="http://www.askemos.org/2000/NameSpaceDSSSL" test="

 (and (eq? (msg &apos;caller) (me &quot;rights&quot;))
  (let ((r (document-element
            (select-elements (children (current-node)) &apos;Modification))))
    (and r (eq? (ns r) &apos;urn:RightsAdministration))))

 ">
 <mind:reply 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">
  <dsssl:copy-of select="
  (node-list
   (grove-root (current-node))
   (children (select-elements (children (current-node)) &apos;Modification)))
  "></dsssl:copy-of>
 </mind:reply>
</dsssl:when>
<!--

 ;;; Local Variables: ***
 ;;; mode: dsssl ***
 ;;; End: ***

-->