File stml2/example/pages/maint/view.scm artifact 7f97c343f3 part of check-in e0ef4cda9d
;; 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")))) '())