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