File example/pages/header/control.scm artifact c7463c753e part of check-in e9a3ddb76a
;; Copyright 2007-2008, Matthew Welland. Kiatoa.com All rights reserved. ;; ;; header/control.scm ;; (load (s:model-path "blah")) (define header:menu-items '(("home" "Home")("learn" "Learn")("action" "Take Action")("discussion" "Discussion") ("preferences" "Preferences"))) (define header:title (let ((t (s:get-param 'section))) (if t t "Home")))