Artifact c7463c753e490f417586c801ec94fab49d7ef277:

• File example/pages/header/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: 365) [annotate] [blame] [check-ins using]

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