From 3d62940caf1286a2d9d4257cd598b141dc298635 Mon Sep 17 00:00:00 2001 From: gferg <> Date: Fri, 26 Jan 2001 00:52:56 +0000 Subject: [PATCH] fix for carrying article title to all html pages --- LDP/builder/dsssl/ldp.dsl | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/LDP/builder/dsssl/ldp.dsl b/LDP/builder/dsssl/ldp.dsl index 1a763400..d60d4795 100644 --- a/LDP/builder/dsssl/ldp.dsl +++ b/LDP/builder/dsssl/ldp.dsl @@ -212,6 +212,24 @@ (process-node-list author-contrib)))) ) +(define (article-title nd) + (let* ((artchild (children nd)) + (artheader (select-elements artchild (normalize "artheader"))) + (artinfo (select-elements artchild (normalize "articleinfo"))) + (ahdr (if (node-list-empty? artheader) + artinfo + artheader)) + (ahtitles (select-elements (children ahdr) + (normalize "title"))) + (artitles (select-elements artchild (normalize "title"))) + (titles (if (node-list-empty? artitles) + ahtitles + artitles))) + (if (node-list-empty? titles) + "" + (node-list-first titles)))) + +