[Resend, I botched an address]
/ Togan Muftuoglu <[EMAIL PROTECTED]> was heard to say:
| Hi Norm,
|
| * Norman Walsh; <[EMAIL PROTECTED]> on 20 Nov, 2001 wrote:
| > | </keywordset>
| > |
| > | What do I have to add to the stylesheet to produce the relavent META tag
| > | generation in the html output
| >
| > That's supposed to just work. Can you send a small sample document that doesn't
| > work for you?
| Please find the attached file
In dbcommon.dsl, replace the definition of info-element with:
(define (info-element #!optional (nd (current-node)))
;; Returns the *INFO element for the nd or (empty-node-list) if no
;; such node exists...
(cond
((equal? (gi nd) (normalize "set"))
(select-elements (children nd) (normalize "setinfo")))
((equal? (gi nd) (normalize "book"))
(select-elements (children nd) (normalize "bookinfo")))
((equal? (gi nd) (normalize "section"))
(select-elements (children nd) (normalize "sectioninfo")))
((equal? (gi nd) (normalize "sect1"))
(select-elements (children nd) (normalize "sect1info")))
((equal? (gi nd) (normalize "sect2"))
(select-elements (children nd) (normalize "sect2info")))
((equal? (gi nd) (normalize "sect3"))
(select-elements (children nd) (normalize "sect3info")))
((equal? (gi nd) (normalize "sect4"))
(select-elements (children nd) (normalize "sect4info")))
((equal? (gi nd) (normalize "sect5"))
(select-elements (children nd) (normalize "sect5info")))
((equal? (gi nd) (normalize "refsect1"))
(select-elements (children nd) (normalize "refsect1info")))
((equal? (gi nd) (normalize "refsect2"))
(select-elements (children nd) (normalize "refsect2info")))
((equal? (gi nd) (normalize "refsect3"))
(select-elements (children nd) (normalize "refsect3info")))
((equal? (gi nd) (normalize "refsynopsisdiv"))
(select-elements (children nd) (normalize "refsynopsisdivinfo")))
((equal? (gi nd) (normalize "article"))
(node-list-filter-by-gi (children nd) (list
(normalize "artheader")
(normalize "articleinfo"))))
(else ;; BIBLIODIV, GLOSSDIV, INDEXDIV, PARTINTRO, SIMPLESECT
(select-elements (children nd) (normalize "docinfo")))))
This is fixed in CVS.
Be seeing you,
norm
--
Norman Walsh <[EMAIL PROTECTED]> | The shoe that fits one person pinches
http://nwalsh.com/ | another; there is no recipe for living
| that suits all cases.--Jung
