RoleForm

(node-list (let ((id (data (form-field 'id (current-node))))) (node-list-filter (lambda (node) (and (match-element? 'role node) (equal? id (attribute-string 'id node)))) (xsl-variable "roles"))) (xsl-variable "role-schema")) gcai role form

Take Care!

You operate with full rights, usually that's dangerously too much.

gcai role form

::

Id:

Right:

Source code:

<html xmlns:dsssl="http://www.askemos.org/2000/NameSpaceDSSSL" xmlns:xslt="http://www.w3.org/1999/XSL/Transform">
 <xslt:variable name="selected">
  <dsssl:copy-of select="#CONTENT">
(node-list
 (let ((id (data (form-field 'id (current-node)))))
  (node-list-filter
   (lambda (node) (and (match-element? 'role node)
                       (equal? id (attribute-string 'id node))))
   (xsl-variable "roles")))
 (xsl-variable "role-schema"))
</dsssl:copy-of>
 </xslt:variable>
 <head>
  <title>gcai role form</title>
 </head>
 <body bccolor="white">
  <dsssl:if test="(service-level)">
   <h1>Take Care!</h1>
   <p>You operate with full rights, usually that's dangerously too
much.</p>
   <hr></hr>
  </dsssl:if>
  <h1>gcai role form</h1>
  <dsssl:for-each select="(xsl-variable &quot;roles&quot;)">
   <p><dsssl:a href="
 (read-locator
  (msg &apos;location-format)
  (cons (string-append &quot;?id=&quot;
                       (attribute-string &apos;id (current-node)))
        (cons (car (msg &apos;destination)) (msg &apos;location))))"><dsssl:copy-of select="(literal (attribute-string &apos;id (current-node)))"></dsssl:copy-of></dsssl:a>
   ::
    <dsssl:copy-of select="(children (node-list-first
(select-elements (children (current-node)) &apos;description)))"></dsssl:copy-of></p>
  </dsssl:for-each>
  <dsssl:form action="&apos;()" method="POST">
   <p>Id: <dsssl:copy-of select="
  (literal (data (form-field &apos;id (current-node))))"></dsssl:copy-of></p>
   <p>Right: <dsssl:input name="right" size="60" type="text" dsssl:value="
(right-&gt;string
 (node-list-&gt;right
  (node-list-first
   (select-elements
    (children (node-list-first (xsl-variable &quot;selected&quot;)))
    &apos;right)))) "></dsssl:input></p>
   <textarea cols="60" name="description" rows="10">
    <dsssl:copy-of select="
 (literal
  (xml-format
   (children (select-elements
              (children (node-list-first (xsl-variable &quot;selected&quot;)))
             &apos;description))))"></dsssl:copy-of>
   </textarea>
   <p>
    <input name="action" type="hidden" value="change-role"></input>
    <dsssl:input name="id" type="hidden" dsssl:value="(data (form-field &apos;id (current-node)))"></dsssl:input>
    <input type="submit"></input>
   </p>
  </dsssl:form>
 </body>
<!--

 ;;; Local Variables: ***
 ;;; mode: indented-text ***
 ;;; End: ***

-->
</html>

Diese Seite findet man von: overview, .



Letzte Modifikation: Thu, 06 Feb 2003 14:32:12 +0100

Autor(en): jfw,

Dokument Nummer A67bb0753e1676f81983e0ecf3a15b391 geliefert an public um Fri, 22 Aug 2008 00:01:09 +0200