From ecd26f86b1c4375fe912750e3e4f0c3d948db2d2 Mon Sep 17 00:00:00 2001
From: Hiroki Sato <hrs@FreeBSD.org>
Date: Thu, 22 May 2003 15:03:50 +0000
Subject: Move ($create-refentry-xref-link$) to share/sgml/freebsd.dsl and the
 localized sysids to <langcode>/share/sgml/catalog.

Since <langcode>/share/sgml/freebsd.dsl still include some
language-neutral parameters and procedures for printable formats,
I will work on assorting them similarly.  I am sorry that
this (and probably the next) commit may break the translation
team's usual update procedure, but you can merge the language-specific
freebsd.dsl from the English version as before.

Discussed on:	-doc
---
 da_DK.ISO8859-1/share/sgml/freebsd.dsl | 29 ++++-------------------------
 1 file changed, 4 insertions(+), 25 deletions(-)

(limited to 'da_DK.ISO8859-1')

diff --git a/da_DK.ISO8859-1/share/sgml/freebsd.dsl b/da_DK.ISO8859-1/share/sgml/freebsd.dsl
index 005cafdae5..43501ab3fd 100644
--- a/da_DK.ISO8859-1/share/sgml/freebsd.dsl
+++ b/da_DK.ISO8859-1/share/sgml/freebsd.dsl
@@ -13,6 +13,10 @@
       <!-- HTML only .................................................... -->
  
       <![ %output.html; [ 
+
+        <!-- Generate links to HTML man pages -->
+        (define %refentry-xref-link% #t)
+
 	(define ($email-footer$)
           (make sequence
 	    (make element gi: "p"
@@ -40,31 +44,6 @@
 		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
                   (literal "doc@FreeBSD.org"))
 	        (literal ">.")))))
-
-
-	<!-- Convert " ... " to `` ... '' in the HTML output. -->
-	(element quote
-	  (make sequence
-	    (literal "``")
-	    (process-children)
-	    (literal "''")))
-
-        <!-- Generate links to HTML man pages -->
-        (define %refentry-xref-link% #t)
-
-        <!-- Specify how to generate the man page link HREF -->
-        (define ($create-refentry-xref-link$ #!optional (n (current-node)))
-          (let* ((r (select-elements (children n) (normalize "refentrytitle")))
-                 (m (select-elements (children n) (normalize "manvolnum")))
-                 (v (attribute-string (normalize "vendor") n))
-                 (u (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
-                         (data r) "&" "sektion=" (data m))))
-            (case v
-              (("current") (string-append u "&" "manpath=FreeBSD+5.0-current"))
-              (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
-              (("netbsd")  (string-append u "&" "manpath=NetBSD+1.5"))
-              (("ports")   (string-append u "&" "manpath=FreeBSD+Ports"))
-              (else u))))
       ]]>
 
       <!-- More aesthetically pleasing chapter headers for print output --> 
-- 
cgit v1.2.3