[bknr-cvs] r1858 - branches/xml-class-rework/bknr/src/web

[bknr at bknr.net]

Author: hhubner
Date: 2006-02-19 12:44:08 -0600 (Sun, 19 Feb 2006)
New Revision: 1858

Modified:
   branches/xml-class-rework/bknr/src/web/menu.lisp
Log:
Revert previous change in order to allow the site to run from a non-root url


Modified: branches/xml-class-rework/bknr/src/web/menu.lisp
===================================================================
--- branches/xml-class-rework/bknr/src/web/menu.lisp	2006-02-19 18:40:53 UTC (rev 1857)
+++ branches/xml-class-rework/bknr/src/web/menu.lisp	2006-02-19 18:44:08 UTC (rev 1858)
@@ -50,7 +50,6 @@
       (dolist (item (menu-items menu))
 	(let ((item-is-active (in-subtree (puri:uri-path (net.aserve:request-uri *req*)) (item-url item))))
 	  (with-slots (url title active-image inactive-image) item
-            (setf url (format nil "/~A" url)) ; XXX Fixme only absolute URLs are possible ATM
 	    (cond
 	      ((and active-image inactive-image)
 	       (if item-is-active