genX <dsssl:copy-of select="(xsl-variable "nuname")"></dsssl:copy-of>

genX: NuNu

(if (equal? (data (current-node)) (data (xsl-variable "media-type")) ) `() `(*TOP?* " " (a (@ (href ,(read-locator (msg 'location-format) (cons (data (xsl-variable "nuname")) (msg 'location)) body: (string-append "media-type=" (current-node) "&template=source")) )) ,(current-node))))

<dsssl:copy-of select="#CONTENT">
 (let* ((part (if (let ((auth (string->oid
                             (data (select-elements
                                    (children (document-element (xsl-variable "nu")))
                                    'lock)))))
                           (and auth (eqv? auth (msg 'dc-creator))))
                                 'draft
                                 'text))
        (draft0 ((sxpath (cons part '(html body *)))
                 (xsl-variable "nu")))
        (draft (if (node-list-empty? draft0)
                   ((sxpath (cons part '(*)))
                    (xsl-variable "nu"))
                   draft0)))
   (cond
     ((node-list-empty? draft) (literal ""))
     ((or (equal? (data (xsl-variable "media-type") ) "text/xml")
          (equal? (data (xsl-variable "media-type") ) "text/html"))
      (xml-format
       (if (node-list-empty? draft)
           (children (node-list-first
                      (select-elements
                       (children (node-list-first (xsl-variable "empty")))
                                 'text)))
            (denunu me msg #f draft))))
     (else
      (let ((b  (if (memq (gi draft) '(html HTML))
                    ((sxpath '((or@ body BODY<a href="/A849640f672ed0df0958abc0712110f3c/BODY">?</a>) <strong>any</strong>)) draft) draft)))
       ((mime-cast (data (xsl-variable "media-type") ) "text/xml") b)))))
</dsssl:copy-of>

In Bearbeitung:

From: ,

CC?:

Protection: /

Diese Seite findet man von: (make element gi: 'a attributes: `((href ,(read-locator (msg 'location-format) (cons (current-node) (msg 'location))))) (literal (current-node))) , .

Letzte Modifikation: (children (select-elements (children (node-list-first (xsl-variable "nu"))) 'date))

Autor(en):

Dokument Number delivered to at

(let ((draft (children (node-list-first (select-elements (children (node-list-first (xsl-variable "nu"))) (if (eqv? (string->oid (data (select-elements (children (node-list-first (xsl-variable "nu"))) 'lock))) (msg 'dc-creator)) 'draft 'text)))))) (if (node-list-empty? draft) (literal "") (denunu me msg #t draft (attribute-string 'id (node-list-first (xsl-variable "nu"))))))