(fetch "portletNavi"
body: (sxml `(form
(get "navilinklist")
(dest ,(oid->string (me (data (xsl-variable "portalName")))))
(portalName ,(data (xsl-variable "portalName")))
(portalLocation ,(literal (read-locator (msg 'location-format)
(msg 'location)
)
))
))
)
(begin
(define (xcons aList rList)
(if (pair? (cdr rList))
(xcons (cons (car rList) aList) (cdr rList))
(cons (car rList) aList)
)
)
;;(literal (read-locator (msg 'location-format)
;; (reverse (xcons (msg 'destination)
;; (parsed-locator (data (form-field "portalLocation" (current-node))))))))
(literal (read-locator (msg 'location-format)
(reverse (msg 'destination))))
)
(let* ((protectionString (data ((sxpath '(Description protection)) (me (oid->string (msg 'dc-creator)) 'metainfo))))
(protectionList (string-split protectionString "/"))
)
(node-list-map
(lambda (protection)
(cond
((equal? protection (data (xsl-variable "portalEditRight")))
(sxml '(edit "true"))
)
)
)
protectionList
)
;; liste durchgehen und prüfen ob eins der geforden Rechte drin steht
;; mit true oder false notieren
)