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