File stml2/example/pages/leftnav/control.scm artifact 077adf479c on branch trunk
;; Copyright 2007-2008, Matthew Welland. Kiatoa.com All rights reserved. ;; ;; leftnav/control.scm ;; nothing needed here yet! (define (leftnav-action action) (case action ('logout (s:logout))))