File example/pages/leftnav/control.scm artifact 077adf479c part of check-in 461d0e242a
;; 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))))