[bknr-cvs] hans changed trunk/projects/quickhoney/src/image.lisp

[BKNR Commits]

Revision: 3920
Author: hans
URL: http://bknr.net/trac/changeset/3920

Change image link to not include /index

U   trunk/projects/quickhoney/src/image.lisp

Modified: trunk/projects/quickhoney/src/image.lisp
===================================================================
--- trunk/projects/quickhoney/src/image.lisp	2008-09-18 10:25:17 UTC (rev 3919)
+++ trunk/projects/quickhoney/src/image.lisp	2008-09-18 11:56:35 UTC (rev 3920)
@@ -46,7 +46,7 @@
      collect (cadr cat-sub)))
 
 (defmethod make-image-link ((image quickhoney-image) &key internal)
-  (format nil "~@[~A~]/index#~(~A~@[/~A~]~)/~A"
+  (format nil "~@[~A~]/#~(~A~@[/~A~]~)/~A"
           (unless internal
             (format nil "http://~A" (website-host)))
           (quickhoney-image-category image) (quickhoney-image-subcategory image) (store-image-name image)))