Changeset 3274

Show
Ignore:
Timestamp:
06/16/08 13:47:08 (7 months ago)
Author:
ksprotte
Message:

fixed bknr-tag REDIRECT-REQUEST

TARGET as it is given to the tag has always been a path
relative to the current request.

The tag was implemented by (hunchentoot:redirect target).
HUNCHENTOOT:REDIRECT expects in this case , however, the entire path
of the url (an absolute path).

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/web/src/web/tags.lisp

    r3270 r3274  
    2323 
    2424(define-bknr-tag redirect-request (&key target) 
    25   (redirect target)) 
     25  ;; target here is relative to the current request 
     26  (redirect (princ-to-string (puri:merge-uris target (script-name*))))) 
    2627 
    2728(define-bknr-tag select-box (name options &key (size 1) default)