1 <html><head><title>Hourglass Controls</title>
2 <link rel="stylesheet" href="/hourglass.css">
6 <h1>Control Settings</h1>
7 <form method="POST" action="controls.cgi">
16 <MAP> (@DN @MODE @START @LIMIT @END) TIMES
18 <th><?newlisp (DAYS (mapv @DN))?></th>
20 <select name="mode@DN">
21 <MAP1> (@X) (map list mode-options) <option value="@X"
23 (if (= (string (mapv @MODE)) (mapv @X)) "selected" "")
29 <select name="start@DN">
30 <MAP1> (@X) (map list start-options) <option value="@X"
32 (if (= (format "%02d:%02d" (mapv @START)) (mapv @X)) "selected" "")
38 <select name="limit@DN">
39 <MAP1> (@X) (map list limit-options) <option value="@X"
41 (if (= (format "%02d:%02d" (mapv @LIMIT)) (mapv @X)) "selected" "")
47 <select name="end@DN">
48 <MAP1> (@X) (map list end-options) <option value="@X"
50 (if (= (format "%02d:%02d" (mapv @END)) (mapv @X)) "selected" "")
58 <div id="form_submit" class="extra" >
60 <input type="submit" value="update">