bug in docbook LOT

[Ricardo <ricardo@conectiva.com.br>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1802 bytes --]

This Function, causes a bug. The <figure> inside a list
(orderedlist,variablelist...) doesn't appears in List of Figures.

In dbautoc.dsl

(define (build-lot nd lotgi #!optional (first? #t))
  (let* ((lotlist (node-list-filter-by-gi (children nd)
                      (append (division-element-list)
                          (component-element-list)
                          (section-element-list)
                          (block-element-list)
                          (list-element-list)
                          (list (normalize "para"))))))
    (if (node-list-empty? lotlist)
    (empty-sosofo)
    (make sequence
      (lot-title first? lotgi)
      (let loop ((nl lotlist))
        (if (node-list-empty? nl)
        (empty-sosofo)
        (make sequence
          (if (string=? (gi (node-list-first nl)) lotgi)
              ($lot-entry$ (node-list-first nl))
              (empty-sosofo))
          (build-lot (node-list-first nl) lotgi #f)
          (loop (node-list-rest nl)))))))))


Using this, fix the bug

(define (build-lot nd lotgi #!optional (first? #t))
  (let* ((lotlist (select-elements (descendants nd) (normalize lotgi))))
  (if (node-list-empty? lotlist)
   (empty-sosofo)
   (make sequence
    (lot-title first? lotgi)
    (let loop ((nl lotlist))
     (if (node-list-empty? nl)
      (empty-sosofo)
      (make sequence
       (if (string=? (gi (node-list-first nl)) lotgi)
        ($lot-entry$ (node-list-first nl))
        (empty-sosofo))
       (build-lot (node-list-first nl) lotgi #f)
       (loop (node-list-rest nl)))))))))


hugs
-- 
Ricardo Soares Guimarães (GNOME - Brazil / KDE Brazil)
LDP-BR - LIE-BR
ricardo@conectiva.com.br +55 041-360-2682 uin: 39252777

	As esplendidas fortunas - como os ventos impetuosos - 
	provocam grandes naufragios.
		-- Plutarco