From a2d357c3a402fe7b9b83d4ee391827d8b12482a7 Mon Sep 17 00:00:00 2001 From: "Bruce A. Mah" Date: Mon, 7 Jan 2002 03:46:24 +0000 Subject: [PATCH] Fix a bug in the FreeBSD print stylesheet that resulted in the combination of %footnote-ulink% and bop-footnotes not generating any URL footnotes (although other footnotes in documents were correct). freebsd.dsl contains a modified definition of the ulink element as defined in dblink.dsl from the DSSSL print stylesheet; unfortunately it was missing some lines of code, which we restore. As of this commit, no document in the FDP uses %footnote-ulink%, although the release documentation will enable it shortly. --- share/sgml/freebsd.dsl | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/share/sgml/freebsd.dsl b/share/sgml/freebsd.dsl index 3820091073..0de0175acf 100644 --- a/share/sgml/freebsd.dsl +++ b/share/sgml/freebsd.dsl @@ -434,7 +434,26 @@ (make sequence ($charseq$) (if %footnote-ulinks% - ($ss-seq$ + (literal (footnote-number (current-node)))) + (if (and (equal? (print-backend) 'tex) bop-footnotes) + (make sequence + ($ss-seq$ + (literal (footnote-number (current-node)))) + (make page-footnote + (make paragraph + font-size: (* %footnote-size-factor% %bf-size%) + font-posture: 'upright + quadding: %default-quadding% + line-spacing: (* (* %footnote-size-factor% %bf-size%) + %line-spacing-factor%) + space-before: %para-sep% + space-after: %para-sep% + start-indent: %footnote-field-width% + first-line-start-indent: (- %footnote-field-width%) + (make line-field + field-width: %footnote-field-width% + (literal (footnote-number (current-node)) + (gentext-label-title-sep (normalize "footnote")))) + (literal (attribute-string (normalize "url")))))) + ($ss-seq$ + (literal (footnote-number (current-node))))) (if (and %show-ulinks% (not (equal? (fix-url (attribute-string (normalize "url"))) (data-of (current-node)))))