Artifact 077adf479c737140a618ae7f8a6c650a7812ded9:

• File example/pages/leftnav/control.scm — part of check-in [d3abae2d97] at 2011-05-15 20:43:16 on branch trunk — Initial check in after moving from http://www.kiatoa.com/fossils/opensrc (user: matt, size: 211) [annotate] [blame] [check-ins using]

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