[docbook-checkins] CVS: dsssl/print dbdivis.dsl,1.2,1.3 dbttlpg.dsl,1.6,1.7

[Norman W. <nw...@us...>]

Update of /cvsroot/docbook/dsssl/print
In directory usw-pr-cvs1:/tmp/cvs-serv29655

Modified Files:
	dbdivis.dsl dbttlpg.dsl 
Log Message:
Patch #502637: avoid blank page between title page recto/verso

Index: dbdivis.dsl
===================================================================
RCS file: /cvsroot/docbook/dsssl/print/dbdivis.dsl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** dbdivis.dsl	7 Jul 2001 22:14:37 -0000	1.2
--- dbdivis.dsl	11 Feb 2002 12:40:43 -0000	1.3
***************
*** 13,19 ****
      (make sequence
        (if %generate-set-titlepage%
! 	  (make sequence
  	    (set-titlepage nl 'recto)
! 	    (set-titlepage nl 'verso))
  	  (empty-sosofo))
        
--- 13,24 ----
      (make sequence
        (if %generate-set-titlepage%
! 	  (make simple-page-sequence
! 	    page-n-columns: %titlepage-n-columns%
! 	    input-whitespace-treatment: 'collapse
! 	    use: default-text-style
  	    (set-titlepage nl 'recto)
! 	    (make display-group
! 	      break-before: 'page
! 	      (set-titlepage nl 'verso)))
  	  (empty-sosofo))
        
***************
*** 52,58 ****
      (make sequence
        (if %generate-book-titlepage%
! 	  (make sequence
  	    (book-titlepage nl 'recto)
! 	    (book-titlepage nl 'verso))
  	  (empty-sosofo))
  
--- 57,68 ----
      (make sequence
        (if %generate-book-titlepage%
! 	  (make simple-page-sequence
! 	    page-n-columns: %titlepage-n-columns%
! 	    input-whitespace-treatment: 'collapse
! 	    use: default-text-style
  	    (book-titlepage nl 'recto)
! 	    (make display-group
! 	      break-before: 'page
! 	      (book-titlepage nl 'verso)))
  	  (empty-sosofo))
  
***************
*** 123,129 ****
      (make sequence
        (if %generate-part-titlepage%
! 	  (make sequence
  	    (part-titlepage nl 'recto)
! 	    (part-titlepage nl 'verso))
  	  (empty-sosofo))
  
--- 133,144 ----
      (make sequence
        (if %generate-part-titlepage%
! 	  (make simple-page-sequence
! 	    page-n-columns: %titlepage-n-columns%
! 	    input-whitespace-treatment: 'collapse
! 	    use: default-text-style
  	    (part-titlepage nl 'recto)
! 	    (make display-group
! 	      break-before: 'page
! 	      (part-titlepage nl 'verso)))
  	  (empty-sosofo))
  

Index: dbttlpg.dsl
===================================================================
RCS file: /cvsroot/docbook/dsssl/print/dbttlpg.dsl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** dbttlpg.dsl	1 Dec 2001 20:52:21 -0000	1.6
--- dbttlpg.dsl	11 Feb 2002 12:40:43 -0000	1.7
***************
*** 95,102 ****
  		       (set-titlepage-verso-elements))
  		   elements)))
!     (make simple-page-sequence
!       page-n-columns: %titlepage-n-columns%
!       input-whitespace-treatment: 'collapse
!       use: default-text-style
  
        ;; This hack is required for the RTF backend. If an external-graphic
--- 95,103 ----
  		       (set-titlepage-verso-elements))
  		   elements)))
! ;;    (make simple-page-sequence
! ;;      page-n-columns: %titlepage-n-columns%
! ;;      input-whitespace-treatment: 'collapse
! ;;      use: default-text-style
!       (make sequence
  
        ;; This hack is required for the RTF backend. If an external-graphic
***************
*** 1392,1399 ****
  		       (book-titlepage-verso-elements))
  		   elements)))
!     (make simple-page-sequence
!       page-n-columns: %titlepage-n-columns%
!       input-whitespace-treatment: 'collapse
!       use: default-text-style
  
        ;; This hack is required for the RTF backend. If an external-graphic
--- 1393,1401 ----
  		       (book-titlepage-verso-elements))
  		   elements)))
! ;;    (make simple-page-sequence
! ;;      page-n-columns: %titlepage-n-columns%
! ;;      input-whitespace-treatment: 'collapse
! ;;      use: default-text-style
!       (make sequence
  
        ;; This hack is required for the RTF backend. If an external-graphic
***************
*** 2678,2686 ****
  		    (node-list-filter-by-gi elements (list (normalize "partintro"))))))
      (if (part-titlepage-content? elements side)
! 	(make simple-page-sequence
! 	  page-n-columns: %titlepage-n-columns%
! 	  input-whitespace-treatment: 'collapse
! 	  use: default-text-style
! 	  
  	  ;; This hack is required for the RTF backend. If an external-graphic
  	  ;; is the first thing on the page, RTF doesn't seem to do the right
--- 2680,2689 ----
  		    (node-list-filter-by-gi elements (list (normalize "partintro"))))))
      (if (part-titlepage-content? elements side)
! ;;	(make simple-page-sequence
! ;;	  page-n-columns: %titlepage-n-columns%
! ;;	  input-whitespace-treatment: 'collapse
! ;;	  use: default-text-style
! 	(make sequence
!   
  	  ;; This hack is required for the RTF backend. If an external-graphic
  	  ;; is the first thing on the page, RTF doesn't seem to do the right