| Name (Ansprechform) |
|
| Familie |
|
| Vorname |
|
| 2. Name |
|
| Titel |
|
| Kürzel |
|
| Bild (OID?) |
|
| Geburtstag |
|
| Organisation |
|
| Strasse |
|
| Ort |
|
| Plz |
|
|
|
|
|
|
|
| Kürzel |
|
| Geburtstag |
|
| Organisation |
|
|
|
|
|
|
|
|
|
<xsl:stylesheet xmlns:addrdb="urn:addrdb" xmlns:d="http://www.askemos.org/2000/NameSpaceDSSSL" xmlns:mind="http://www.askemos.org/2000/CoreAPI" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<!--
This is how we define our data structure: write down an example entry.
-->
<addrdb:emptyEntry>
<rdf:Description xmlns="http://www.w3.org/2001/vcard-rdf/3.0#" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" about="A00000000000000000000000000000001">
<!-- formatted name -->
<fn></fn>
<n>
<surname></surname>
<firstname></firstname>
<middlename></middlename>
<honorific></honorific>
</n>
<nickname></nickname>
<photo resource="xpath value (prefered '/oid' ) "></photo>
<bday></bday>
<adr>
<affilation></affilation>
<street></street>
<city></city>
<zip></zip>
</adr>
</rdf:Description>
</addrdb:emptyEntry>
<!--
Default the current (edit cursor) record to the reader if no "about"
field is in the input form.
-->
<xsl:variable name="current">
<d:copy-of select="
(let* ((about-field (form-field 'about (current-node)))
(about (me (if (node-list-empty? about-field)
(oid->string (msg 'dc-creator))
(data about-field)))))
(or (and about (fetch about))
((sxpath '(emptyEntry *)) (grove-root (current-node)))))
"></d:copy-of>
</xsl:variable>
<xsl:template match="request[@type="read"]">
<xsl:choose>
<!--
If the next destination step indicates the oid of some entry, forward
to the entry.
-->
<d:when test="(pair? (msg 'destination))">
<mind:forward></mind:forward>
</d:when>
<!--
Standard debug interface for development and maintainence available
for the creator only.
-->
<d:when test="(and (is-meta-form? msg) (service-level (me 'dc-creator)))">
<d:copy-of select="(message-body (metaview me msg))"></d:copy-of>
</d:when>
<xsl:otherwise>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Adressen</title>
<meta content="text/html" http-equiv="Content-Type"></meta>
</head>
<body bgcolor="white">
<h1>Adressen</h1>
<!-- Again the creator only will get this link. -->
<d:if test="(service-level (me 'dc-creator))">
<p>
<d:a d:href="
(read-locator (msg 'location-format)
(list body: "xmlns=mind" (me 'get 'id)))
">debug</d:a>
</p>
</d:if>
<d:form action="'()" method="get">
<p>
<input name="search" type="text"></input>
<input type="submit" value="Suche"></input>
</p>
</d:form>
<xsl:choose>
<d:when test="
(> (string-length (data (form-field 'search (current-node)))) 2)
">
<!-- Search results only with at leat 3 characters of search string. -->
<p>
<!-- fold-links yields a function with two parameters, a
combinator and an initial value. The combinator is applied once for
each link to the link name and the accumulated inital value, i.e., it
returns the "new" initial value.
pcre creates a match function for a perl regualr expression.
fetch gets the entry from the link, which is matched by the search and
if a match is found, it's inserted into the result.
-->
<d:for-each select="
(let ((search (pcre (data (form-field 'search (current-node))))))
((me 'fold-links)
(lambda (name i) (if (search (fetch name)) (cons name i) i))
'()))
">
<!-- The link is prepared to display the detailed entry. -->
<d:a d:href="(read-locator (msg 'location-format)
(list body: (string-append "about=" (data (current-node))) (me 'get 'id)))">
<d:copy-of select="((sxpath '(fn)) (fetch (me (current-node))))"></d:copy-of>
</d:a>
<br></br>
</d:for-each>
</p>
</d:when>
<!--
The owner of an entry gets an input form to change the entry.
-->
<d:when test="
(eq? (string->oid (attribute-string 'about (node-list-first (xsl-variable "current")))) (msg 'dc-creator))
;; (service-level (string->oid (attribute-string 'about (node-list-first (xsl-variable "current") ))))
">
<d:form action="'()" method="post">
<table bgcolor="silver" border="0">
<tr>
<td>Name (Ansprechform)</td>
<td>
<d:input name="fn" type="text" d:value="(data ((sxpath '(fn)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>Familie</td>
<td>
<d:input name="surname" type="text" d:value="(data ((sxpath '(n surname)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>Vorname</td>
<td>
<d:input name="firstname" type="text" d:value="(data ((sxpath '(n firstname)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>2. Name</td>
<td>
<d:input name="middlename" type="text" d:value="(data ((sxpath '(n middlename)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>Titel</td>
<td>
<d:input name="honorific" type="text" d:value="(data ((sxpath '(n honorific)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>Kürzel</td>
<td>
<d:input name="nickname" type="text" d:value="(data ((sxpath '(nickname)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>Bild (OID)</td>
<td>
<d:input name="photo" type="text" d:value="(data ((sxpath '(photo)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>Geburtstag</td>
<td>
<d:input name="bday" type="text" d:value="(data ((sxpath '(bday)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>Organisation</td>
<td>
<d:input name="affilation" type="text" d:value="(data ((sxpath '(adr affilation)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>Strasse</td>
<td>
<d:input name="street" type="text" d:value="(data ((sxpath '(adr street)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>Ort
</td>
<td>
<d:input name="city" type="text" d:value="(data ((sxpath '(adr city)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>Plz</td>
<td>
<d:input name="zip" type="text" d:value="(data ((sxpath '(adr zip)) (xsl-variable "current")))"></d:input>
</td>
</tr>
<tr>
<td>
<d:input type="submit" value="eintragen"></d:input>
<d:input name="action" type="hidden" value="save"></d:input>
</td>
<td>
<small>
<code>
<d:copy-of select="(attribute-string 'about (node-list-first (xsl-variable "current") ))"></d:copy-of>
</code>
</small>
</td>
</tr>
</table>
</d:form>
</d:when>
<!--
Show the name for everybody else.
-->
<xsl:otherwise>
<table bgcolor="silver" border="0">
<tr>
<td colspan="2">
<d:copy-of select="
(literal
(data ((sxpath '(n honorific)) (xsl-variable "current")))
" "
(data ((sxpath '(fn)) (xsl-variable "current"))))"></d:copy-of>
</td>
</tr>
<tr>
<td>Kürzel</td>
<td>
<d:copy-of select="(children ((sxpath '(nickname)) (xsl-variable "current")))"></d:copy-of>
</td>
</tr>
<tr>
<td>Geburtstag</td>
<td>
<d:copy-of select="(children ((sxpath '(bday)) (xsl-variable "current")))"></d:copy-of>
</td>
</tr>
<tr>
<td>Organisation</td>
<td>
<d:copy-of select="(children ((sxpath '(adr affilation)) (xsl-variable "current")))"></d:copy-of>
</td>
</tr>
<tr>
<td colspan="2">
<d:copy-of select="(children ((sxpath '(adr street)) (xsl-variable "current")))"></d:copy-of>
</td>
</tr>
<tr>
<td colspan="2">
<d:copy-of select="
(node-list
(children ((sxpath '(adr zip)) (xsl-variable "current")))
(literal " ")
(children ((sxpath '(adr city)) (xsl-variable "current"))))
"></d:copy-of>
</td>
</tr>
<tr>
<td colspan="2">
<small>
<code>
<d:copy-of select="(attribute-string 'about (node-list-first (xsl-variable "current") ))"></d:copy-of>
</code>
</small>
</td>
</tr>
</table>
</xsl:otherwise>
</xsl:choose>
</body>
</html>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
<xsl:template match="request[@type="write"]">
<xsl:variable name="new-entry">
<d:copy-of select="#CONTENT">
(let ((handle (lambda (node)
(let ((ff (form-field (gi node) (current-node))))
(if (node-list-empty? ff) node ff)))))
(make element
gi: 'Description ns: (string->symbol "<a href="http://www.w3.org/1999/02/22-rdf-syntax-ns#")">http://www.w3.org/1999/02/22-rdf-syntax-ns#")</a>
attributes: `((xmlns rdf "<a href="http://www.w3.org/1999/02/22-rdf-syntax-ns#")">http://www.w3.org/1999/02/22-rdf-syntax-ns#")</a>
(xmlns "<a href="http://www.w3.org/2001/vcard-rdf/3.0#")">http://www.w3.org/2001/vcard-rdf/3.0#")</a>
(about ,(oid->string (msg 'dc-creator))))
(node-list-map
(lambda (node)
(cond
((match-element? 'n node)
(make element gi: 'n
(node-list-map handle (children node))))
((match-element? 'adr node)
(make element gi: 'adr
(node-list-map handle (children node))))
;; All form fields
(else (handle node))))
;; The children of the root of the style sheet.
((sxpath '(emptyEntry Description *)) (grove-root (current-node))))))
</d:copy-of>
</xsl:variable>
<xsl:choose>
<!--
Support the standard debug interface.
-->
<d:when test="(and (is-meta-form? msg) (service-level (me 'dc-creator)))">
<d:copy-of select="(message-body (metactrl me msg))"></d:copy-of>
</d:when>
<!--
Chech the ownership of the entry.
-->
<d:when test="(not (or (service-level (string->oid (attribute-string 'about (node-list-first (xsl-variable "new-entry") )))) (error "privat property")))"></d:when>
<!--
OK, change the entry.
-->
<xsl:otherwise>
<mind:reply>
<d:copy-of select="(grove-root (current-node))"></d:copy-of>
<mind:link>
<xsl:attribute name="name">
<d:copy-of select="
(attribute-string 'about (node-list-first (xsl-variable "new-entry")))"></d:copy-of>
</xsl:attribute>
<mind:new action="Af051fe01ba259f25aae185d500b3d6a2" protection="Af051fe01ba259f25aae185d500b3d6a2">
<!--
<xsl:attribute name="initialize">true</xsl:attribute>-->
<d:copy-of select="#CONTENT">
(node-list-first (xsl-variable "new-entry"))
</d:copy-of>
</mind:new>
</mind:link>
</mind:reply>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
</xsl:stylesheet>
Diese Seite findet man von: overview, .