r5297: *** empty log message ***

[lml2.git] / downloads.lisp

diff --git a/downloads.lisp b/downloads.lisp
index f0e16b62ad7ff302a91183feb4f4bd9d0d163e3d..a106f3a62b7fc88cb8932978b6b97decad68d3a7 100644 (file)
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: downloads.lisp,v 1.2 2003/07/12 17:54:05 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)))
@@ -128,7 +128,7 @@
                               :url dl-url
                               :name pkg-base
                               :signed nil)))
-    (display-header pkg-name dl-url dl-data)
+    (display-header pkg-name dl-url)
     (dolist (sect sects)
       (display-sections sect dl-data))
     (display-footer dl-data)))