From 9078cf1dcaa8de851315250a2a602cabced9f4fe Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Sat, 11 May 2024 17:05:49 +0200
Subject: [PATCH] form submit for IBAN Assignments

---
 ledgers/iban_assign.sh | 28 ++++++++++++++++++++++++++++
 ledgers/index.cgi      |  8 ++++++--
 style.css              | 36 ++++++++++++++++++++++++++++++++++++
 3 files changed, 70 insertions(+), 2 deletions(-)
 create mode 100755 ledgers/iban_assign.sh

diff --git a/ledgers/iban_assign.sh b/ledgers/iban_assign.sh
new file mode 100755
index 0000000..cabeae7
--- /dev/null
+++ b/ledgers/iban_assign.sh
@@ -0,0 +1,28 @@
+#!/bin/sh
+
+printf '%s\r\n' "Content-Type: text/plain" ""
+
+for key in $(POST_KEYS); do case $key in
+  use_*)
+    use_iban="${use_iban} ${key#use_} "
+    ;;
+esac; done
+echo Use IBANS:
+echo "$use_iban"
+echo
+
+[ "$use_iban" ] && for key in $(POST_KEYS); do case $key in
+  check_*_*)
+    iban="${key#check_}" iban="${iban%_*}"
+    [ ! "${use_iban##* "${iban}" *}" ] && check="${check} ${key#check_} "
+    ;;
+esac; done
+echo Checked:
+echo "$check"
+echo
+
+for use in $check; do
+  iban="${use%_*}"
+  fn="$(POST "fn_${use}")"
+  echo Assign $iban to $fn
+done
diff --git a/ledgers/index.cgi b/ledgers/index.cgi
index dbf8ee8..685ee85 100755
--- a/ledgers/index.cgi
+++ b/ledgers/index.cgi
@@ -61,21 +61,24 @@ credit() {
       amount="${record#*	*	*	*	*	}" amount="${amount%%	*}"
       printf '[p .principal . %s][p .date %s][p .amount %s][p .subject . %s]' \
              "$(UNSTRING "$principal" |HTML)" "$date" "$(credit "$amount")" "$(UNSTRING "$subject" |HTML)"
+      printf '[input type=checkbox id="use_%s" name="use_%s" value=true]' "$iban" "$iban"
       n=0; for card in $cards; do
         n=$((n+1)); uid="${card%%/*}" name="$(UNSTRING "${card#*/}")"
         cat <<-EOF
 	  [input type=checkbox id="check_${iban}_$n" name="check_${iban}_$n" value=true checked=checked]
-	  [input .card name="fn_${iban}_$n" value="$(HTML "$name")" disabled=disabled]
+	  [input .card name="fn_${iban}_$n" value="$(HTML "$name")" .disabled tabindex="-1"]
 	  [label .del for="check_${iban}_$n" . -]
 	EOF
       done
       for m in 1 2 3 4 5 6 7 8; do
         cat <<-EOF
-	  [input type=checkbox id="check_${iban}_$((n+m))" name="check_${iban}_$((n+m))" value=false]
+	  [input type=checkbox id="check_${iban}_$((n+m))" name="check_${iban}_$((n+m))" value=true]
 	  [input .card name="fn_${iban}_$((n+m))" value="" placeholder="${l10n_attendant}" list="lattendants"]
 	  [label .add for="check_${iban}_$((n+m))" . +]
 	EOF
       done
+      printf '[label for="use_%s" . %s]' "$iban" "$(l10n Accept Suggestions)"
+      printf '[label for="use_%s" . %s]' "$iban" "$(l10n Ignore Suggestions)"
     elif [ $state = unknown ]; then
       date="${data%%	*}"
       principal="${data#*	*	*	}" principal="${principal%%	*}"
@@ -94,5 +97,6 @@ credit() {
     fi
   printf ']'
   done
+  printf '[button type=submit . %s]' "$(l10n Submit Changes)"
   printf '  ]'
 } | yield_page ledgers
diff --git a/style.css b/style.css
index 742163b..13d41a0 100644
--- a/style.css
+++ b/style.css
@@ -403,6 +403,9 @@ form.ledgers {
   font-weight: bold;
 }
 
+.ibanassign fieldset.iban input[name^="fn_"].disabled {
+  pointer-events: none;
+}
 .ibanassign fieldset.iban input[name^="check_"],
 .ibanassign fieldset.iban input[name^="check_"] + input,
 .ibanassign fieldset.iban input[name^="check_"] + input + label {
@@ -435,3 +438,36 @@ form.ledgers {
   background-color: #FDD;
   border-radius: 0 2pt 2pt 0;
 }
+
+.ibanassign fieldset.iban input[name^="use_"] {
+  display: none;
+}
+.ibanassign fieldset.iban input[name^="use_"]:checked ~ input {
+  background-color: #DFD;
+  pointer-events: none;
+  border-color: #888;
+}
+.ibanassign fieldset.iban input[name^="use_"]:checked ~ label.del,
+.ibanassign fieldset.iban input[name^="use_"]:checked ~ label.add {
+  display: none !important;
+}
+
+.ibanassign fieldset.iban label[for^="use_"] {
+  display: block;
+  float: right;
+  padding: .25em .5em;
+  background-color: #AAF;
+  border: 1pt solid;
+}
+
+.ibanassign fieldset.iban input[name^="use_"] ~ label[for^="use_"] { display: block; }
+.ibanassign fieldset.iban input[name^="use_"] ~ label[for^="use_"] + label[for^="use_"] { display: none; }
+.ibanassign fieldset.iban input[name^="use_"]:checked ~ label[for^="use_"] { display: none; }
+.ibanassign fieldset.iban input[name^="use_"]:checked ~ label[for^="use_"] + label[for^="use_"] { display: block; }
+
+.ibanassign > button {
+  position: sticky;
+  bottom: 0;
+  margin: auto;
+  display: block;
+}
-- 
2.39.2