rdelaage
/
postgresql
mirror of https://git.postgresql.org/git/postgresql.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix copy-and-paste bug in print style.

This commit is contained in:
Peter Eisentraut 2002-01-30 21:53:40 +00:00
parent bef0c8dc29
commit 089e8f959e
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
doc/src/sgml/stylesheet.dsl
View File

@ -1,4 +1,4 @@
<!-- $Header: /cvsroot/pgsql/doc/src/sgml/stylesheet.dsl,v 1.18 2002/01/10 18:22:44 petere Exp $ --> <!-- $Header: /cvsroot/pgsql/doc/src/sgml/stylesheet.dsl,v 1.19 2002/01/30 21:53:40 petere Exp $ -->
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!-- must turn on one of these with -i on the jade command line --> <!-- must turn on one of these with -i on the jade command line -->
@ -443,7 +443,7 @@
;; partintro is a special case... ;; partintro is a special case...
(partintro (node-list-first (partintro (node-list-first
(node-list-filter-by-gi elements (list (normalize "partintro")))))) (node-list-filter-by-gi elements (list (normalize "partintro"))))))
(if (reference-titlepage-content? elements side) (if (part-titlepage-content? elements side)
(make simple-page-sequence (make simple-page-sequence
page-n-columns: %titlepage-n-columns% page-n-columns: %titlepage-n-columns%
;; Make sure that page number format is correct. ;; Make sure that page number format is correct.
@ -470,19 +470,19 @@
(if (or (node-list-empty? lastnode) (if (or (node-list-empty? lastnode)
(not (equal? (gi (node-list-first nl)) (not (equal? (gi (node-list-first nl))
(gi lastnode)))) (gi lastnode))))
(reference-titlepage-before (node-list-first nl) side) (part-titlepage-before (node-list-first nl) side)
(empty-sosofo)) (empty-sosofo))
(cond (cond
((equal? (gi (node-list-first nl)) (normalize "subtitle")) ((equal? (gi (node-list-first nl)) (normalize "subtitle"))
(reference-titlepage-subtitle (node-list-first nl) side)) (part-titlepage-subtitle (node-list-first nl) side))
((equal? (gi (node-list-first nl)) (normalize "title")) ((equal? (gi (node-list-first nl)) (normalize "title"))
(reference-titlepage-title (node-list-first nl) side)) (part-titlepage-title (node-list-first nl) side))
(else (else
(reference-titlepage-default (node-list-first nl) side))) (part-titlepage-default (node-list-first nl) side)))
(loop (node-list-rest nl) (node-list-first nl))))) (loop (node-list-rest nl) (node-list-first nl)))))
(if (and %generate-reference-toc% (if (and %generate-part-toc%
%generate-reference-toc-on-titlepage% %generate-part-toc-on-titlepage%
(equal? side 'recto)) (equal? side 'recto))
(make display-group (make display-group
(build-toc (current-node) (build-toc (current-node)