change display of gitweb link

diff --git a/debian/changelog b/debian/changelog
index a027e434631cdb58349e0392bcac2d8f208f5c8e..5a9dd6d113aebe0285053b4d11b1b7231e4fd134 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-lml (2.5.6-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu,  6 Sep 2007 00:02:13 -0600
+
 cl-lml (2.5.5-1) unstable; urgency=low
 
   * New upstream

diff --git a/downloads.lisp b/downloads.lisp
index 241dc666ea475dbf3e8ec7caf3bde7ea21a19ab6..62e70dfab4b9ce54bc7c9bbfc3f6739f0eef1e54 100644 (file)
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -127,9 +127,9 @@
     (display-header pkg-name dl-url)
     (map nil #'display-sections sects)
     (when giturl
-      (if gitweb
-          (lml-format "<h2>Git Repository</h2><tt><a href=\"~A\">~A</a></tt>" gitweb giturl)
-          (lml-format "<h2>Git Repository</h2><tt>~A</tt>" giturl)))
+      (lml-format "<h2>Git Repository</h2><tt>~A</tt>" giturl)
+      (when gitweb
+        (lml-format "&nbsp;&nbsp;[<a href=\"~A\">Browse</a>]" gitweb)))
     (display-footer)))
 
 (defun std-dl-page (pkg-name pkg-base dl-base dl-url &optional giturl gitweb)