From 2e49188d71e876cd19fc3f936ae44c5ddfb13ecf Mon Sep 17 00:00:00 2001
From: gferg <>
Date: Thu, 25 Jan 2001 22:16:22 +0000
Subject: [PATCH] updated

---
 LDP/builder/dsssl/ldp.dsl | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/LDP/builder/dsssl/ldp.dsl b/LDP/builder/dsssl/ldp.dsl
index 06e5cc29..1a763400 100644
--- a/LDP/builder/dsssl/ldp.dsl
+++ b/LDP/builder/dsssl/ldp.dsl
@@ -115,13 +115,20 @@
   ;; when producing HTML files, use this extension
   ".html")
 
+(define %generate-book-toc%
+  ;; Should a Table of Contents be produced for books?
+  #t)
+
 (define %generate-article-toc% 
-  ;; Should a Table of Contents be produced for Articles?
-  ;; If true, a Table of Contents will be generated for each 'Article'.
+  ;; Should a Table of Contents be produced for articles?
   #t)
 
 (define %generate-part-toc%
-  ;; show a partial table of contents on books; usually at chapter level
+  ;; Should a Table of Contents be produced for parts?
+  #t)
+
+(define %generate-book-titlepage%
+  ;; produce a title page for books
   #t)
 
 (define %generate-article-titlepage%
@@ -132,6 +139,10 @@
   ;; forces the Table of Contents on separate page
   '())
 
+(define (list-element-list)
+  ;; fixes bug in Table of Contents generation
+  '())
+
 (define %root-filename%
   ;; The filename of the root HTML document (e.g, "index").
   "index")
@@ -181,14 +192,14 @@
 
 (mode article-titlepage-recto-mode
 
-(element contrib
+ (element contrib
   ;; print out with othercredit information; for translators, etc.
   (make sequence
     (make element gi: "SPAN"
           attributes: (list (list "CLASS" (gi)))
           (process-children))))
 
-(element othercredit
+ (element othercredit
   ;; print out othercredit information; for translators, etc.
   (let ((author-name  (author-string))
         (author-contrib (select-elements (children (current-node))