X-Git-Url: http://git.kpe.io/?p=lml2.git;a=blobdiff_plain;f=downloads.lisp;h=a106f3a62b7fc88cb8932978b6b97decad68d3a7;hp=05a6716c1ac5ea0d2ae7c8324bbdc701f62ab263;hb=d302201764fe7e8c5d5db203ffb41ea24c1ec9ec;hpb=1726bee5998c1f574c84f294f26b982e124da629

diff --git a/downloads.lisp b/downloads.lisp
index 05a6716..a106f3a 100644
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: downloads.lisp,v 1.3 2003/07/12 17:57:34 kevin Exp $
+;;;; $Id: downloads.lisp,v 1.5 2003/07/12 17:58:50 kevin Exp $
 ;;;;
 ;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg.
 ;;;; Rights of modification and redistribution are in the LICENSE file.
@@ -63,7 +63,7 @@
   (lml-format "<a style=\"padding-left:20pt;\" href=\"~A\">~A</a>" url url))
 
 (defun display-footer (dl-data)
-  (when (dl-data-signed)
+  (when (dl-data-signed dl-data)
     (lml-princ "<h3>GPG Public Key</h3>")
     (lml-princ "Use this <a href=\"https://www.b9.com/kevin.gpg.asc\">key</a> to verify file signtatures"))
   (lml-princ "</div>"))
@@ -116,7 +116,7 @@
 	    (display-sections sect dl-data))
 	(if (consp value)
 	    (progn
-	      (print-sect-title title)
+	      (print-sect-title title dl-data)
 	      (incf (dl-data-indent dl-data))
 	      (display-sections value dl-data)
 	      (decf (dl-data-indent dl-data)))