]>
Commit | Line | Data |
---|---|---|
e5824e08 | 1 | --- docbook-dsssl-1.76/common/dbcommon.dsl.orig Fri Feb 22 11:26:14 2002 |
2 | +++ docbook-dsssl-1.76/common/dbcommon.dsl Fri Feb 22 11:43:00 2002 | |
3 | @@ -1070,11 +1070,16 @@ | |
4 | (define (article-title nd) | |
5 | (let* ((artchild (children nd)) | |
6 | (artheader (select-elements artchild (normalize "artheader"))) | |
7 | + (articleinfo (select-elements artchild (normalize "articleinfo"))) | |
8 | (ahtitles (select-elements (children artheader) | |
9 | (normalize "title"))) | |
10 | + (aititles (select-elements (children articleinfo) | |
11 | + (normalize "title"))) | |
12 | (artitles (select-elements artchild (normalize "title"))) | |
13 | (titles (if (node-list-empty? artitles) | |
14 | - ahtitles | |
15 | + (if (node-list-empty? ahtitles) | |
16 | + aititles | |
17 | + ahtitles) | |
18 | artitles))) | |
19 | (if (node-list-empty? titles) | |
20 | "" |