Artifact 7f97c343f3dc596f9022e11c7dccbe8187941487:

• File example/pages/maint/view.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: 275) [annotate] [blame] [check-ins using]

;; Copyright 2007-2008, Matthew Welland. Kiatoa.com All rights reserved.
;; 
;; maint/view.scm
;;
(if (maint:am-i-maint?)
    (list
     (s:h1 "Hello Maint!")
     (s:p (s:a "Update Tables" 'href (s:link-to (s:current-page) 
					'action "maint.update_tables"))))
    '())