1 files changed, 4 insertions, 25 deletions

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 -->