[docbook-checkins] CVS: dsssl/html dbindex.dsl,1.2,1.3

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

Update of /cvsroot/docbook/dsssl/html
In directory usw-pr-cvs1:/tmp/cvs-serv11524

Modified Files:
	dbindex.dsl 
Log Message:
Wrap DIVs around index lists

Index: dbindex.dsl
===================================================================
RCS file: /cvsroot/docbook/dsssl/html/dbindex.dsl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** dbindex.dsl	2001/12/06 22:05:00	1.2
--- dbindex.dsl	2002/01/03 14:29:10	1.3
***************
*** 35,46 ****
       (with-mode head-title-mode 
         (literal (element-title-string (current-node))))
!      (make sequence
!        ($component-separator$)
!        ($component-title$)
!        (process-node-list preamble)
!        (if (node-list-empty? entries)
! 	   (empty-sosofo)
! 	   (make element gi: "DL"
! 		 (process-node-list entries)))))))
  
  (element (index title) (empty-sosofo))
--- 35,47 ----
       (with-mode head-title-mode 
         (literal (element-title-string (current-node))))
!      (make element gi: "DIV"
! 	   attributes: (list (list "CLASS" (gi)))
! 	   ($component-separator$)
! 	   ($component-title$)
! 	   (process-node-list preamble)
! 	   (if (node-list-empty? entries)
! 	       (empty-sosofo)
! 	       (make element gi: "DL"
! 		     (process-node-list entries)))))))
  
  (element (index title) (empty-sosofo))
***************
*** 55,66 ****
       (with-mode head-title-mode 
         (literal (element-title-string (current-node))))
!      (make sequence
!        ($component-separator$)
!        ($component-title$)
!        (process-node-list preamble)
!        (if (node-list-empty? entries)
! 	   (empty-sosofo)
! 	   (make element gi: "DL"
! 		 (process-node-list entries)))))))
  
  
--- 56,68 ----
       (with-mode head-title-mode 
         (literal (element-title-string (current-node))))
!      (make element gi: "DIV"
! 	   attributes: (list (list "CLASS" (gi)))
! 	   ($component-separator$)
! 	   ($component-title$)
! 	   (process-node-list preamble)
! 	   (if (node-list-empty? entries)
! 	       (empty-sosofo)
! 	       (make element gi: "DL"
! 		     (process-node-list entries)))))))
  
  
***************
*** 76,87 ****
       (with-mode head-title-mode
         (literal (element-title-string (current-node))))
!      (make sequence
!        ($section-separator$)
!        ($section-title$)
!        (process-node-list preamble)
!        (if (node-list-empty? entries)
! 	   (empty-sosofo)
! 	   (make element gi: "DL"
! 		 (process-node-list entries)))))))
  
  (define (break-node-list nodes breakatgi)
--- 78,90 ----
       (with-mode head-title-mode
         (literal (element-title-string (current-node))))
!      (make element gi: "DIV"
! 	   attributes: (list (list "CLASS" (gi)))
! 	   ($section-separator$)
! 	   ($section-title$)
! 	   (process-node-list preamble)
! 	   (if (node-list-empty? entries)
! 	       (empty-sosofo)
! 	       (make element gi: "DL"
! 		     (process-node-list entries)))))))
  
  (define (break-node-list nodes breakatgi)