Changeset 18048 in project


Ignore:
Timestamp:
05/12/10 01:55:09 (9 years ago)
Author:
Mario Domenech Goulart
Message:

awful (trunk): `page-access-control' also control pages when no
session is in use.

Location:
release/4/awful/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/awful/trunk/awful.scm

    r18047 r18048  
    308308                      use-session
    309309                      (and (enable-session) (session-valid? (sid))))
    310                   (if (and ((page-access-control) path)
    311                            (or no-session (not (enable-session))))
     310                  (if ((page-access-control) path)
    312311                      (begin
    313312                        (when use-session
  • release/4/awful/trunk/tests/access-control.scm

    r17121 r18048  
    1111(page-access-control
    1212 (lambda (path)
    13    (and (equal? ($ 'user) "mario")
    14         (equal? path (main-page-path)))))
     13   (or (member path `(,(login-page-path) "/login-trampoline"))
     14       (and (equal? ($ 'user) "mario")
     15            (equal? path (main-page-path))))))
    1516
    1617(define-page (main-page-path)
Note: See TracChangeset for help on using the changeset viewer.