default document template

diff --git a/form.sh b/form.sh
new file mode 100755 (executable)
index 0000000..28c7489
--- /dev/null
+++ b/form.sh
@@ -0,0 +1,41 @@
+#!/bin/sh
+
+yield_form() {
+  local id="${PATH_INFO##*/}" type="$(DB3 get type)" status="$(DB3 get status)"
+  printf '%s\r\n' "Content-Type: text/html; charset=utf-8" ""
+
+  "$_EXEC/cgilite/html-sh.sed" <<-EOF
+[html [head
+  [meta name="viewport" content="width=device-width"]
+  [link rel="stylesheet" type="text/css" href="/cgilite/common.css"]
+  [title $(_ Invoices)]
+] [body
+  [a href=/ . &lt;--]
+  [form .document .default method=POST
+    [label for=type . $(_ Type):]
+    [select #type name=type
+      [option]
+      $(for tmpl in "$_EXEC"/tmpl_*/; do
+        tmpl="${tmpl%/}" tmpl="${tmpl##*/}"
+        printf '[option value="%s" %s . %s]' \
+               "$tmpl" \
+               "$([ "$type" = "$tmpl" ] && printf 'selected=selected')" \
+               "$(_ "$tmpl")"
+      done)
+    ]
+    [label for=status . $(_ Status):]
+    [select #status name=status
+      [option value=open   $([ "$status" = open   ] && printf selected=selected) . $(_ Open)]
+      [option value=sent   $([ "$status" = sent   ] && printf selected=selected) . $(_ Sent)]
+      [option value=resent $([ "$status" = resent ] && printf selected=selected) . $(_ Reminded)]
+      [option value=paid   $([ "$status" = paid   ] && printf selected=selected) . $(_ Paid)]
+      [option value=cancelled $([ "$status" = cancelled ] && printf selected=selected) . $(_ Cancelled)]
+    ]
+    [input type=hidden name=id value="$id"]
+    [input type=hidden name=tid value="$tid"]
+    [input type=hidden name=session_key value="$SESSION_KEY"]
+    [button type=submit name=action value=update_invoice . $(_ Update)]
+  ]
+] ]
+EOF
+}