Megatest

control.scm at [b4ff9e2f1d]
Login

File stml2/example/pages/leftnav/control.scm artifact 077adf479c part of check-in b4ff9e2f1d


;; 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))))