docbook-style-dsssl-articleinfo.patch

   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         ""