From 819aebfb5343f918d510ba65c56e84ea24496ae6 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Sat, 20 Apr 2024 21:32:56 +0200
Subject: [PATCH 01/16] styling for iban assignment

---
 ledgers/iban_assign.awk |  4 ++--
 ledgers/index.cgi       | 43 +++++++++++++++++++++++++++++++---------
 style.css               | 44 ++++++++++++++++++++++++++++++++++++++---
 3 files changed, 77 insertions(+), 14 deletions(-)

diff --git a/ledgers/iban_assign.awk b/ledgers/iban_assign.awk
index eac5b44..68a5727 100755
--- a/ledgers/iban_assign.awk
+++ b/ledgers/iban_assign.awk
@@ -73,8 +73,8 @@ ledger && strftime("%Y-%m-%d", $2, "UTC") == $1 {
 END {
   for (iban in sure) {
     line = "sure	" iban;
-    split(iban_uid[iban], uids, / /);
-    for (uid in uids) line = line "	" STRING(uid "/" uid_fn[uid]);
+    split(sure[iban], uids, / /);
+    for (k in uids) line = line "	" STRING(uids[k] "/" uid_fn[uids[k]]);
     print line;
   }
   for (iban in unsure) {
diff --git a/ledgers/index.cgi b/ledgers/index.cgi
index 87af8b1..dbf8ee8 100755
--- a/ledgers/index.cgi
+++ b/ledgers/index.cgi
@@ -39,33 +39,58 @@ credit() {
     printf '[option value="%s"]' "$(HTML "$name")"
   done
   printf ']'
+  l10n_attendant="$(l10n attendant)"
   { pdi_load "${_DATA}"/vcard/*.vcf
     cat "${_DATA}"/ledgers/????-??-??\ -\ ????-??-??\ -\ ????.tbl
   } | "${_EXEC}"/ledgers/iban_assign.awk \
   | while read -r state iban data; do
     printf '[fieldset .iban .%s [legend . %s ]' \
            "$state" "$iban"
-      if [ $state = sure ]; then
+    if   [ $state = sure ]; then
+      for card in $data; do
+        uid="${card%%/*}" name="$(UNSTRING "${card#*/}")"
+        printf '[span .card . %s]' "$(HTML "${name}")"
+      done
       :
     elif [ $state = guess ]; then
       record="$(UNSTRING "${data%%	*}")"
       cards="${data#*	}"
+      date="${record%%	*}"
       principal="${record#*	*	*	}" principal="${principal%%	*}"
       subject="${record#*	*	*	*	}" subject="${subject%%	*}"
       amount="${record#*	*	*	*	*	}" amount="${amount%%	*}"
-      printf '[p .principal . %s][p .amount %s][p .subject . %s]' \
-             "$(UNSTRING "$principal" |HTML)" "$(credit "$amount")" "$(UNSTRING "$subject" |HTML)"
-      printf '[h4 . %s]' "$(l10n Guesses)"
-      for card in $cards; do
-        uid="${card%%/*}" name="$(UNSTRING "${card#*/}")"
-        printf '[input .card key="cardfn" value="%s" placeholder="%s" list=lattendants]' "$(HTML "${name}")" "$(l10n attendent)"
+      printf '[p .principal . %s][p .date %s][p .amount %s][p .subject . %s]' \
+             "$(UNSTRING "$principal" |HTML)" "$date" "$(credit "$amount")" "$(UNSTRING "$subject" |HTML)"
+      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]
+	  [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 .card name="fn_${iban}_$((n+m))" value="" placeholder="${l10n_attendant}" list="lattendants"]
+	  [label .add for="check_${iban}_$((n+m))" . +]
+	EOF
       done
     elif [ $state = unknown ]; then
+      date="${data%%	*}"
       principal="${data#*	*	*	}" principal="${principal%%	*}"
       subject="${data#*	*	*	*	}" subject="${subject%%	*}"
       amount="${data#*	*	*	*	*	}" amount="${amount%%	*}"
-      printf '[p .principal . %s][p .amount %s][p .subject . %s]' \
-             "$(UNSTRING "$principal" |HTML)" "$(credit "$amount")" "$(UNSTRING "$subject" |HTML)"
+      printf '[p .principal . %s][p .date %s][p .amount %s][p .subject . %s]' \
+             "$(UNSTRING "$principal" |HTML)" "$date" "$(credit "$amount")" "$(UNSTRING "$subject" |HTML)"
+      printf '[input name="check_" type=hidden][input type=hidden][label .del]'
+      n=0; 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 .card name="fn_${iban}_$((n+m))" value="" placeholder="${l10n_attendant}" list="lattendants"]
+	  [label .add for="check_${iban}_$((n+m))" . +]
+	EOF
+      done
     fi
   printf ']'
   done
diff --git a/style.css b/style.css
index 98b839d..742163b 100644
--- a/style.css
+++ b/style.css
@@ -368,6 +368,9 @@ body.categories form.namelist ul.namelist > li ul li {
   display: inline-block;
 }
 
+
+/* ======== Ledgers Page ======== */
+
 form.ibanassign,
 form.ledgers {
   padding: .125em 1em 0 1em;
@@ -388,12 +391,47 @@ form.ledgers {
 .ibanassign fieldset.iban p.principal {
   font-size: .875em;
 }
-.ibanassign fieldset.iban p.amount,
-.ibanassign fieldset.iban p.subject {
+.ibanassign fieldset.iban p.date,
+.ibanassign fieldset.iban p.amount {
+  font-size: .875em;
   display: inline-block;
   vertical-align: top;
+  margin-right: .75em;
+  margin-bottom: 0;
 }
 .ibanassign fieldset.iban p.amount {
   font-weight: bold;
-  margin-right: .75em;
+}
+
+.ibanassign fieldset.iban input[name^="check_"],
+.ibanassign fieldset.iban input[name^="check_"] + input,
+.ibanassign fieldset.iban input[name^="check_"] + input + label {
+  display: none;
+}
+.ibanassign fieldset.iban input[name^="check_"]:checked + input,
+.ibanassign fieldset.iban input[name^="check_"]:checked + input + label.del,
+.ibanassign fieldset.iban input[name^="check_"] + input + label.del + input + input + label.add,
+.ibanassign fieldset.iban input[name^="check_"]:checked + input + label + input + input + label.add {
+  display: inline;
+}
+.ibanassign fieldset.iban input[name^="check_"]:checked + input + label.add,
+.ibanassign fieldset.iban input[name^="check_"] + input + label.del + input:checked + input + label.add,
+.ibanassign fieldset.iban input[name^="check_"]:checked + input + label + input:checked + input + label.add {
+  display: none;
+}
+
+.ibanassign fieldset.iban input[name^="check_"] + input + label {
+  vertical-align: bottom;
+  line-height: 2.5em;
+  padding: .375em .625em;
+  border: .5pt solid;
+}
+.ibanassign fieldset.iban input[name^="check_"] + input + label.add {
+  background-color: #DFD;
+  border-radius: 2pt;
+}
+.ibanassign fieldset.iban input[name^="check_"] + input + label.del {
+  margin: 0 .5em 0 -.25em;
+  background-color: #FDD;
+  border-radius: 0 2pt 2pt 0;
 }
-- 
2.39.2


From acf7b97ca0deee3e2d2cf328e7c3951d57ea8a2f Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Sat, 11 May 2024 17:05:01 +0200
Subject: [PATCH 02/16] enable deletion of ledgers

---
 ledgers/delete.sh | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 ledgers/delete.sh

diff --git a/ledgers/delete.sh b/ledgers/delete.sh
new file mode 100755
index 0000000..7b41921
--- /dev/null
+++ b/ledgers/delete.sh
@@ -0,0 +1,13 @@
+#!/bin/sh
+
+delete="$(POST delete |PATH)"
+dtable="${_DATA}/ledgers/${delete##*/}"
+
+if [ "$dtable" ]; then
+  rm -- "${dtable}" \
+  || SET_COOKIE 0 message="Unable to delete ledger: \"$(HTML "$delete")\""
+else
+  SET_COOKIE 0 message="No such ledger: \"$(HTML "$delete")\""
+fi
+
+REDIRECT "${_BASE}/ledgers/"
-- 
2.39.2


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 03/16] 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


From 4e7da5b8a7edf35a5f0432c296ae8fcbcd9cf91c Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Sat, 11 May 2024 22:09:22 +0200
Subject: [PATCH 04/16] form submit of assignments

---
 ledgers/iban_assign.sh | 45 +++++++++++++++++++++++++++++++-----------
 1 file changed, 33 insertions(+), 12 deletions(-)

diff --git a/ledgers/iban_assign.sh b/ledgers/iban_assign.sh
index cabeae7..9faf223 100755
--- a/ledgers/iban_assign.sh
+++ b/ledgers/iban_assign.sh
@@ -1,15 +1,22 @@
 #!/bin/sh
 
-printf '%s\r\n' "Content-Type: text/plain" ""
+. "$_EXEC/pdiread.sh"
+. "$_EXEC/session_lock.sh"
+
+UIDLIST="$(
+  pdi_load "$_DATA/vcard/"*.vcf \
+  | sed -Ez '
+    s/\nBEGIN;:VCARD\n([^\n]+\n)*FN;:([^\n]+)\n([^\n]+\n)*UID;:([^\n]+)\n([^\n]+\n)*END;:VCARD\n/UID:\4 FN:\2/g
+  '
+)"
+
+# 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_*_*)
@@ -17,12 +24,26 @@ echo
     [ ! "${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
+{ printf '[ul .results'
+  for use in $check; do
+    iban="${use%_*}"
+    fn="$(POST "fn_${use}")"
+    uid="${UIDLIST%% FN:"$fn"${BR}*}" uid="${uid##*${BR}UID:}"
+  
+    cfile="${_DATA}/vcard/${uid}.vcf"
+    if SLOCK "$cfile" >/dev/null; then
+      card="$(pdi_load "$cfile")"
+      cnum="$(pdi_count "$card" X-IBAN)"
+      pdi_update_value "$card" X-IBAN "$((cnum + 1))" "$iban" >"$cfile"
+      printf '[li .success . [span .name . %s] [span .uid . (UID: %s)] assigned IBAN [span .iban . %s]]' \
+             "$(HTML "$fn")" "$(HTML "$uid")" "$(HTML "$iban")"
+      RELEASE_SLOCK "$cfile"
+    else
+      printf '[li .error . [span .name . %s] [span .uid . (UID: %s)] is being edited elsewhere]'
+             "$(HTML "$fn")" "$(HTML "$uid")"
+    fi
+  done
+  printf ']'
+  printf '[a .button href=/ledgers/ . %s]' "$(l10n Back)"
+} | yield_page ledgers_assign
-- 
2.39.2


From df20f046b4ff4e58a5b93ce152926325c7e15767 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Sun, 12 May 2024 16:43:28 +0200
Subject: [PATCH 05/16] simplified pipeline protocol

---
 ledgers/iban_assign.awk | 4 +++-
 ledgers/index.cgi       | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/ledgers/iban_assign.awk b/ledgers/iban_assign.awk
index 68a5727..57ab62d 100755
--- a/ledgers/iban_assign.awk
+++ b/ledgers/iban_assign.awk
@@ -1,5 +1,7 @@
 #!/bin/awk -f
 
+function dbg( text ) { print text >>"/dev/stderr"; }
+
 function STRING( inp ) {
   gsub(/\\/, "\\\\", inp);
   gsub(/\n/, "\\n",  inp);
@@ -52,7 +54,7 @@ BEGIN {
   fn = n = uid = iban = tmp = ""; split("", ibans);
 }
 
-strftime("%Y-%m-%d", $1, "UTC") == $2 && strftime("%Y-%m-%d", $3, "UTC") == $4 { ledger = 1; }
+/^BEGIN:LEDGERS$/ { ledger = 1; }
 
 ledger && strftime("%Y-%m-%d", $2, "UTC") == $1 {
   if ($3 in iban_uid) {
diff --git a/ledgers/index.cgi b/ledgers/index.cgi
index 685ee85..f55850d 100755
--- a/ledgers/index.cgi
+++ b/ledgers/index.cgi
@@ -41,6 +41,7 @@ credit() {
   printf ']'
   l10n_attendant="$(l10n attendant)"
   { pdi_load "${_DATA}"/vcard/*.vcf
+    printf 'BEGIN:LEDGERS\n'
     cat "${_DATA}"/ledgers/????-??-??\ -\ ????-??-??\ -\ ????.tbl
   } | "${_EXEC}"/ledgers/iban_assign.awk \
   | while read -r state iban data; do
-- 
2.39.2


From 50266fa18f563d8da371a7bf06c796db41b08ace Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Sun, 12 May 2024 17:47:56 +0200
Subject: [PATCH 06/16] put known IBANs at the bottom of list

---
 ledgers/iban_assign.awk | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/ledgers/iban_assign.awk b/ledgers/iban_assign.awk
index 57ab62d..0491617 100755
--- a/ledgers/iban_assign.awk
+++ b/ledgers/iban_assign.awk
@@ -73,12 +73,6 @@ ledger && strftime("%Y-%m-%d", $2, "UTC") == $1 {
 }
 
 END {
-  for (iban in sure) {
-    line = "sure	" iban;
-    split(sure[iban], uids, / /);
-    for (k in uids) line = line "	" STRING(uids[k] "/" uid_fn[uids[k]]);
-    print line;
-  }
   for (iban in unsure) {
     line = "guess	" iban " " STRING(unsure_rec[iban]);
     split(unsure[iban], uids, / /);
@@ -89,4 +83,10 @@ END {
     line = "unknown	" iban " " unknown[iban];
     print line;
   }
+  for (iban in sure) {
+    line = "sure	" iban;
+    split(sure[iban], uids, / /);
+    for (k in uids) line = line "	" STRING(uids[k] "/" uid_fn[uids[k]]);
+    print line;
+  }
 }
-- 
2.39.2


From 1ddf37b85b097f69a0d59f5a04f14509d1dd8ec0 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Sun, 12 May 2024 17:48:40 +0200
Subject: [PATCH 07/16] bugfix: find actual UID in files

---
 ledgers/iban_assign.sh | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ledgers/iban_assign.sh b/ledgers/iban_assign.sh
index 9faf223..8d9ae99 100755
--- a/ledgers/iban_assign.sh
+++ b/ledgers/iban_assign.sh
@@ -8,6 +8,7 @@ UIDLIST="$(
   | sed -Ez '
     s/\nBEGIN;:VCARD\n([^\n]+\n)*FN;:([^\n]+)\n([^\n]+\n)*UID;:([^\n]+)\n([^\n]+\n)*END;:VCARD\n/UID:\4 FN:\2/g
   '
+  echo
 )"
 
 # printf '%s\r\n' "Content-Type: text/plain" ""
@@ -31,7 +32,8 @@ esac; done
     fn="$(POST "fn_${use}")"
     uid="${UIDLIST%% FN:"$fn"${BR}*}" uid="${uid##*${BR}UID:}"
   
-    cfile="${_DATA}/vcard/${uid}.vcf"
+    # cfile="${_DATA}/vcard/${uid}.vcf"
+    cfile="$(grep -lxF "UID;:${uid}" "${_DATA}/vcard/"*.vcf || grep -lxF "UID:${uid}" "${_DATA}/vcard/"*.vcf)"
     if SLOCK "$cfile" >/dev/null; then
       card="$(pdi_load "$cfile")"
       cnum="$(pdi_count "$card" X-IBAN)"
-- 
2.39.2


From 9631f7d188d59cc11fc14629a66583b07b187a72 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Sun, 12 May 2024 17:50:22 +0200
Subject: [PATCH 08/16] Mark modified fieldsets visually

---
 ledgers/index.cgi | 10 +++++++---
 style.css         | 22 +++++++++++++---------
 2 files changed, 20 insertions(+), 12 deletions(-)

diff --git a/ledgers/index.cgi b/ledgers/index.cgi
index f55850d..f2c2bf0 100755
--- a/ledgers/index.cgi
+++ b/ledgers/index.cgi
@@ -45,6 +45,9 @@ credit() {
     cat "${_DATA}"/ledgers/????-??-??\ -\ ????-??-??\ -\ ????.tbl
   } | "${_EXEC}"/ledgers/iban_assign.awk \
   | while read -r state iban data; do
+    iban="$(UNSTRING "$iban")"
+    [ ! "$iban" ] && iban="??????????"
+    printf '[input type=checkbox id="use_%s" name="use_%s" value=true]' "$iban" "$iban"
     printf '[fieldset .iban .%s [legend . %s ]' \
            "$state" "$iban"
     if   [ $state = sure ]; then
@@ -62,7 +65,6 @@ 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
@@ -78,8 +80,8 @@ credit() {
 	  [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)"
+      printf '[label .button for="use_%s" . %s]' "$iban" "$(l10n Accept Suggestions)"
+      printf '[label .button for="use_%s" . %s]' "$iban" "$(l10n Ignore Suggestions)"
     elif [ $state = unknown ]; then
       date="${data%%	*}"
       principal="${data#*	*	*	}" principal="${principal%%	*}"
@@ -95,6 +97,8 @@ credit() {
 	  [label .add for="check_${iban}_$((n+m))" . +]
 	EOF
       done
+      printf '[label .button for="use_%s" . %s]' "$iban" "$(l10n Accept Suggestions)"
+      printf '[label .button for="use_%s" . %s]' "$iban" "$(l10n Ignore Suggestions)"
     fi
   printf ']'
   done
diff --git a/style.css b/style.css
index 13d41a0..a8ebe90 100644
--- a/style.css
+++ b/style.css
@@ -403,6 +403,8 @@ form.ledgers {
   font-weight: bold;
 }
 
+.ibanassign fieldset.iban.sure .card { margin-right: 1em; }
+
 .ibanassign fieldset.iban input[name^="fn_"].disabled {
   pointer-events: none;
 }
@@ -439,16 +441,18 @@ form.ledgers {
   border-radius: 0 2pt 2pt 0;
 }
 
-.ibanassign fieldset.iban input[name^="use_"] {
+.ibanassign input[name^="use_"] {
   display: none;
 }
-.ibanassign fieldset.iban input[name^="use_"]:checked ~ input {
+.ibanassign input[name^="use_"]:checked + fieldset.iban.guess   { background-color: #EFD; }
+.ibanassign input[name^="use_"]:checked + fieldset.iban.unknown { background-color: #FED; }
+.ibanassign input[name^="use_"]:checked + fieldset.iban 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 {
+.ibanassign input[name^="use_"]:checked + fieldset.iban label.del,
+.ibanassign input[name^="use_"]:checked + fieldset.iban label.add {
   display: none !important;
 }
 
@@ -456,14 +460,14 @@ form.ledgers {
   display: block;
   float: right;
   padding: .25em .5em;
-  background-color: #AAF;
+  background-color: #DDF;
   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 input[name^="use_"] + fieldset.iban label[for^="use_"] { display: block; }
+.ibanassign input[name^="use_"] + fieldset.iban label[for^="use_"] + label[for^="use_"] { display: none; }
+.ibanassign input[name^="use_"]:checked + fieldset.iban label[for^="use_"] { display: none; }
+.ibanassign input[name^="use_"]:checked + fieldset.iban label[for^="use_"] + label[for^="use_"] { display: block; }
 
 .ibanassign > button {
   position: sticky;
-- 
2.39.2


From 785c5f7e7828e93a2c6629036d8808865a0eec11 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Mon, 13 May 2024 20:56:19 +0200
Subject: [PATCH 09/16] link to ledgers from cards

---
 cards/list.sh | 1 +
 l10n.sh       | 1 +
 2 files changed, 2 insertions(+)

diff --git a/cards/list.sh b/cards/list.sh
index 9511fc1..e12d760 100755
--- a/cards/list.sh
+++ b/cards/list.sh
@@ -104,6 +104,7 @@ print_card(){
         $(card_item "$card" CATEGORIES)
       ]
       [div .control
+        [a .button .item href="${_BASE}/ledgers/account.sh?card=${cardfile##*/}" $(l10n ledger)]
         [a .button .item href="${_BASE}/cards/edit_card.sh?card=${cardfile##*/}" $(l10n edit)]
         [a .button .item href="${_BASE}/cards/export_card.sh?card=${cardfile##*/}" $(l10n vcf_export)]
       ]
diff --git a/l10n.sh b/l10n.sh
index d9e01d0..9780a09 100755
--- a/l10n.sh
+++ b/l10n.sh
@@ -85,6 +85,7 @@ l10n_global() {
     edit) printf %s "Bearbeiten";;
     edit_categories) printf %s "Kategorien Bearbeiten";;
     vcf_export) printf %s "Vcard Exportieren";;
+    ledger) printf %s "Buchungen";;
     control) printf %s "Aktionen";;
     delete) printf %s "entfernen";;
     edit_update) printf %s "Daten übernehmen";;
-- 
2.39.2


From de473d4e02928b374781a1930e052dfb215a6201 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Mon, 13 May 2024 20:57:59 +0200
Subject: [PATCH 10/16] Squashed 'cgilite/' changes from 397847d..ad6888a

ad6888a style support for <label class=button>
1a733d6 debug function

git-subtree-dir: cgilite
git-subtree-split: ad6888a95e36f5ad2be6555d20c9216bcd3d1aa7
---
 cgilite.awk | 7 +++++--
 common.css  | 6 +++---
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/cgilite.awk b/cgilite.awk
index f16ed6a..ebf4411 100644
--- a/cgilite.awk
+++ b/cgilite.awk
@@ -1,5 +1,7 @@
 #!/bin/env awk -f
 
+function debug(t) { printf "%s\n", t >>"/dev/stderr"; }
+
 function PATH( str,    seg, out ) {
   while ( str ) {
     seg = str;
@@ -151,8 +153,9 @@ BEGIN {
   split("", _GET); split("", _POST); split("", _REF);
   split("", _HEADER); split("", _COOKIE);
 
-  if ( ENVIRON["REQUEST_METHOD"] )
+  if ( ENVIRON["REQUEST_METHOD"] ) {
     _cgilite_headers();
-  else
+  } else {
     _cgilite_request();
+  }
 }
diff --git a/common.css b/common.css
index 30c3942..16e99f2 100644
--- a/common.css
+++ b/common.css
@@ -31,7 +31,7 @@ a {
   color: #068;
   word-break: break-word;
 }
-a.button {
+a.button, label.button {
   font-style: inherit;
   text-decoration: inherit;
   color: inherit;
@@ -86,7 +86,7 @@ h1 {
 }
 h2 { font-size: 1.125em; }
 
-select, input, button, textarea, a.button {
+select, input, button, textarea, a.button, label.button {
   display: inline-block;
   color: #000; background-color: #FFF;
   border: .5pt solid;
@@ -103,7 +103,7 @@ input[type=radio], input[type=checkbox] {
 }
 input[type=number] { text-align: right; padding-right: 0; }
 
-button, input[type=button], a.button {
+button, input[type=button], a.button, label.button {
   box-shadow: .125em .125em .25em;
   cursor: pointer;
 }
-- 
2.39.2


From 207eb8177406ef0cc1f7629337a2c328394ba752 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Mon, 13 May 2024 23:19:41 +0200
Subject: [PATCH 11/16] separate pages in ledger section, stubs for account
 page

---
 ledgers/account.sh     |  41 ++++++++++++++
 ledgers/iban_assign.sh | 122 +++++++++++++++++++++++++----------------
 ledgers/index.cgi      | 119 +++++++++++++++-------------------------
 ledgers/set_iban.sh    |  49 +++++++++++++++++
 4 files changed, 210 insertions(+), 121 deletions(-)
 create mode 100755 ledgers/account.sh
 create mode 100755 ledgers/set_iban.sh

diff --git a/ledgers/account.sh b/ledgers/account.sh
new file mode 100755
index 0000000..2cc279b
--- /dev/null
+++ b/ledgers/account.sh
@@ -0,0 +1,41 @@
+#!/bin/sh
+
+if [ "$REQUEST_METHOD" = POST ]; then
+  uid="$(POST uid)"
+  cfile="$(grep -lxF "UID;:${uid}" "${_DATA}/vcard/"*.vcf || grep -lxF "UID:${uid}" "${_DATA}/vcard/"*.vcf)"
+  REDIRECT "${_BASE}/ledgers/account.sh?card=${cfile##*/}"
+fi
+
+. "${_EXEC}/pdiread.sh"
+. "${_EXEC}/cards/l10n.sh"
+. "${_EXEC}/cards/widgets.sh"
+
+cardfile="${_DATA}/vcard/$(GET card |PATH)"
+if [ ! -f "$cardfile" ]; then
+  SET_COOKIE 0 message="Invalid account: $cardfile"
+  REDIRECT "${_BASE}/ledgers/"
+fi
+
+{
+  card="$(pdi_load "$cardfile")"
+  cat <<-EOF
+	[div .card #${cardfile##*/}
+	  [div .section .basic . $(
+	    card_item "$card" FN GENDER NICKNAME BDAY X-ZACK-JOINDATE X-ZACK-LEAVEDATE SOUND PHOTO LOGO
+	  )]
+	  [div .section .phone   . $(card_item "$card" TEL)]
+	  [div .section .message . $(card_item "$card" EMAIL IMPP URL)]
+	  [div .section .address . $(card_item "$card" ADR X-IBAN)]
+	  [div .section .note    . $(card_item "$card" NOTE)]
+	  [div .section .attendance [h3 $(l10n course_attendance) ] [ul
+	    $(grep -F "     ${cardfile##*/}" "$_DATA/mappings/attendance" |while read each discard; do
+	      printf '[li [a .item .attendance href="%s/courses#%s" . %s]]' \
+	             "${_BASE}" "$each" \
+	             "$(pdi_value "$(pdi_load "$_DATA/ical/$each")" SUMMARY || l10n "(unnamed course)" |unescape |HTML)"
+	    done |sort -k7)]
+	    $(card_item "$card" CATEGORIES)
+	  ]
+	]
+	EOF
+} \
+| yield_page ledgers
diff --git a/ledgers/iban_assign.sh b/ledgers/iban_assign.sh
index 8d9ae99..778d279 100755
--- a/ledgers/iban_assign.sh
+++ b/ledgers/iban_assign.sh
@@ -1,51 +1,81 @@
 #!/bin/sh
 
-. "$_EXEC/pdiread.sh"
-. "$_EXEC/session_lock.sh"
+credit() {
+  printf '%03i\n' "$1" \
+  | sed -E 's;[0-9]{2}$;d&;; :0 s;([0-9])([0-9]{3}[dm]);\1m\2;; t0; y;dm;,.;'
+}
 
-UIDLIST="$(
-  pdi_load "$_DATA/vcard/"*.vcf \
-  | sed -Ez '
-    s/\nBEGIN;:VCARD\n([^\n]+\n)*FN;:([^\n]+)\n([^\n]+\n)*UID;:([^\n]+)\n([^\n]+\n)*END;:VCARD\n/UID:\4 FN:\2/g
-  '
-  echo
-)"
-
-# 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
-
-[ "$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
-
-{ printf '[ul .results'
-  for use in $check; do
-    iban="${use%_*}"
-    fn="$(POST "fn_${use}")"
-    uid="${UIDLIST%% FN:"$fn"${BR}*}" uid="${uid##*${BR}UID:}"
-  
-    # cfile="${_DATA}/vcard/${uid}.vcf"
-    cfile="$(grep -lxF "UID;:${uid}" "${_DATA}/vcard/"*.vcf || grep -lxF "UID:${uid}" "${_DATA}/vcard/"*.vcf)"
-    if SLOCK "$cfile" >/dev/null; then
-      card="$(pdi_load "$cfile")"
-      cnum="$(pdi_count "$card" X-IBAN)"
-      pdi_update_value "$card" X-IBAN "$((cnum + 1))" "$iban" >"$cfile"
-      printf '[li .success . [span .name . %s] [span .uid . (UID: %s)] assigned IBAN [span .iban . %s]]' \
-             "$(HTML "$fn")" "$(HTML "$uid")" "$(HTML "$iban")"
-      RELEASE_SLOCK "$cfile"
-    else
-      printf '[li .error . [span .name . %s] [span .uid . (UID: %s)] is being edited elsewhere]'
-             "$(HTML "$fn")" "$(HTML "$uid")"
-    fi
+{ printf '
+  [h1 . %s]
+  [form .ibanassign action="%s/ledgers/set_iban.sh" method=POST
+    [input type=hidden name=session_id value="%s"]
+  ' "$(l10n "IBAN Assignments")" "${_BASE}" "$SESSION_ID"
+  printf '[datalist id=lattendants .'
+  pdi_load "${_DATA}"/vcard/*.vcf |sed -n '/^FN\;:/!b; s;^FN\;:;;; p;' \
+  | while read name; do
+    printf '[option value="%s"]' "$(HTML "$name")"
   done
   printf ']'
-  printf '[a .button href=/ledgers/ . %s]' "$(l10n Back)"
-} | yield_page ledgers_assign
+  l10n_attendant="$(l10n attendant)"
+  printf %s\\n "$IBAN_ASSIGN" \
+  | while read -r state iban data; do
+    iban="$(UNSTRING "$iban")"
+    [ ! "$iban" ] && iban="??????????"
+    printf '[input type=checkbox id="use_%s" name="use_%s" value=true]' "$iban" "$iban"
+    printf '[fieldset .iban .%s [legend . %s ]' \
+           "$state" "$iban"
+    if   [ $state = sure ]; then
+      for card in $data; do
+        uid="${card%%/*}" name="$(UNSTRING "${card#*/}")"
+        printf '[span .card . %s]' "$(HTML "${name}")"
+      done
+      :
+    elif [ $state = guess ]; then
+      record="$(UNSTRING "${data%%	*}")"
+      cards="${data#*	}"
+      date="${record%%	*}"
+      principal="${record#*	*	*	}" principal="${principal%%	*}"
+      subject="${record#*	*	*	*	}" subject="${subject%%	*}"
+      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)"
+      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 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=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 .button for="use_%s" . %s]' "$iban" "$(l10n Accept Suggestions)"
+      printf '[label .button for="use_%s" . %s]' "$iban" "$(l10n Ignore Suggestions)"
+    elif [ $state = unknown ]; then
+      date="${data%%	*}"
+      principal="${data#*	*	*	}" principal="${principal%%	*}"
+      subject="${data#*	*	*	*	}" subject="${subject%%	*}"
+      amount="${data#*	*	*	*	*	}" 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 name="check_" type=hidden][input type=hidden][label .del]'
+      n=0; 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 .card name="fn_${iban}_$((n+m))" value="" placeholder="${l10n_attendant}" list="lattendants"]
+	  [label .add for="check_${iban}_$((n+m))" . +]
+	EOF
+      done
+      printf '[label .button for="use_%s" . %s]' "$iban" "$(l10n Accept Suggestions)"
+      printf '[label .button for="use_%s" . %s]' "$iban" "$(l10n Ignore Suggestions)"
+    fi
+  printf ']'
+  done
+  printf '[button type=submit . %s]' "$(l10n Submit Changes)"
+  printf '  ]'
+} | yield_page ledgers
diff --git a/ledgers/index.cgi b/ledgers/index.cgi
index f2c2bf0..f5ac6b5 100755
--- a/ledgers/index.cgi
+++ b/ledgers/index.cgi
@@ -3,11 +3,31 @@
 . "$_EXEC/cgilite/storage.sh"
 . "$_EXEC/pdiread.sh"
 
+if [ "$(POST show_account)" ]; then
+  uid="$(POST show_account)"
+  cfile="$(grep -lxF "UID;:${uid}" "${_DATA}/vcard/"*.vcf || grep -lxF "UID:${uid}" "${_DATA}/vcard/"*.vcf)"
+  REDIRECT "${_BASE}/ledgers/account.sh?card=${cfile##*/}"
+  exit 0;
+fi
+
 credit() {
   printf '%03i\n' "$1" \
   | sed -E 's;[0-9]{2}$;d&;; :0 s;([0-9])([0-9]{3}[dm]);\1m\2;; t0; y;dm;,.;'
 }
 
+IBAN_ASSIGN="$(
+  { pdi_load "${_DATA}"/vcard/*.vcf
+    printf 'BEGIN:LEDGERS\n'
+    cat "${_DATA}"/ledgers/????-??-??\ -\ ????-??-??\ -\ ????.tbl
+  } | "${_EXEC}"/ledgers/iban_assign.awk
+  printf '\n'
+)"
+
+if [ "${PATH_INFO%/iban_assign/}" != "${PATH_INFO}" ]; then
+  . "${_EXEC}/ledgers/iban_assign.sh"
+  exit 0
+fi
+
 { printf '
   [form .upload action="%s/ledgers/csv_upload.sh" method="POST" enctype="multipart/form-data"
     [label for=ledger_upload . %s:]
@@ -28,80 +48,29 @@ credit() {
            "$(HTML "${ledger% - ????.tbl}")" "$(HTML "$ledger")" "$(l10n delete)"
   done
   printf '  ]'
-  printf '
-  [form .ibanassign action="%s/ledgers/iban_assign.sh" method=POST
-    [input type=hidden name=session_id value="%s"]
-    [h3 . %s]
-  ' "${_BASE}" "$SESSION_ID" "$(l10n "IBAN Assignments")"
-  printf '[datalist id=lattendants .'
-  pdi_load "${_DATA}"/vcard/*.vcf |sed -n '/^FN\;:/!b; s;^FN\;:;;; p;' \
-  | while read name; do
-    printf '[option value="%s"]' "$(HTML "$name")"
-  done
-  printf ']'
-  l10n_attendant="$(l10n attendant)"
-  { pdi_load "${_DATA}"/vcard/*.vcf
-    printf 'BEGIN:LEDGERS\n'
-    cat "${_DATA}"/ledgers/????-??-??\ -\ ????-??-??\ -\ ????.tbl
-  } | "${_EXEC}"/ledgers/iban_assign.awk \
-  | while read -r state iban data; do
-    iban="$(UNSTRING "$iban")"
-    [ ! "$iban" ] && iban="??????????"
-    printf '[input type=checkbox id="use_%s" name="use_%s" value=true]' "$iban" "$iban"
-    printf '[fieldset .iban .%s [legend . %s ]' \
-           "$state" "$iban"
-    if   [ $state = sure ]; then
-      for card in $data; do
-        uid="${card%%/*}" name="$(UNSTRING "${card#*/}")"
-        printf '[span .card . %s]' "$(HTML "${name}")"
-      done
-      :
-    elif [ $state = guess ]; then
-      record="$(UNSTRING "${data%%	*}")"
-      cards="${data#*	}"
-      date="${record%%	*}"
-      principal="${record#*	*	*	}" principal="${principal%%	*}"
-      subject="${record#*	*	*	*	}" subject="${subject%%	*}"
-      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)"
-      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 tabindex="-1"]
-	  [label .del for="check_${iban}_$n" . -]
+  unassigned="$(printf %s\\n "$IBAN_ASSIGN" |grep -E '^guess|^unknown' |wc -l)"
+  cat <<-EOF
+	[div
+	  [h1 . $(l10n IBAN Assignments)]
+	  $(printf "$(l10n "%i IBANs are unassigned")" "$unassigned")
+	  [a href="${_BASE}/ledgers/iban_assign/" . $(l10n Assign IBANs)]
+	]
+	[form action="${_BASE}/ledgers/account.sh" method=POST
+	  [select name=uid
+	  $(printf %s\\n "$IBAN_ASSIGN" \
+	    | sed -E '
+	      /^sure	/!d;
+	      s;^sure	[^\t]+;;;
+	      s;([^\t]+)/([^\t]+);\1	\2\n;g;
+	      s;\n$;;
+	    ' \
+	    | while read uid fn; do
+	      uid="$(HTML "$uid")"
+	      fn="$(UNSTRING "$fn" |HTML)"
+	      printf '[option value="%s" . %s]' "$uid" "$fn"
+	    done)
+	  ]
+	  [button type="submit" . $(l10n Account)]
+	]
 	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=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 .button for="use_%s" . %s]' "$iban" "$(l10n Accept Suggestions)"
-      printf '[label .button for="use_%s" . %s]' "$iban" "$(l10n Ignore Suggestions)"
-    elif [ $state = unknown ]; then
-      date="${data%%	*}"
-      principal="${data#*	*	*	}" principal="${principal%%	*}"
-      subject="${data#*	*	*	*	}" subject="${subject%%	*}"
-      amount="${data#*	*	*	*	*	}" 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 name="check_" type=hidden][input type=hidden][label .del]'
-      n=0; 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 .card name="fn_${iban}_$((n+m))" value="" placeholder="${l10n_attendant}" list="lattendants"]
-	  [label .add for="check_${iban}_$((n+m))" . +]
-	EOF
-      done
-      printf '[label .button for="use_%s" . %s]' "$iban" "$(l10n Accept Suggestions)"
-      printf '[label .button for="use_%s" . %s]' "$iban" "$(l10n Ignore Suggestions)"
-    fi
-  printf ']'
-  done
-  printf '[button type=submit . %s]' "$(l10n Submit Changes)"
-  printf '  ]'
 } | yield_page ledgers
diff --git a/ledgers/set_iban.sh b/ledgers/set_iban.sh
new file mode 100755
index 0000000..08c9a3b
--- /dev/null
+++ b/ledgers/set_iban.sh
@@ -0,0 +1,49 @@
+#!/bin/sh
+
+. "$_EXEC/pdiread.sh"
+. "$_EXEC/session_lock.sh"
+
+UIDLIST="$(
+  pdi_load "$_DATA/vcard/"*.vcf \
+  | sed -Ez '
+    s/\nBEGIN;:VCARD\n([^\n]+\n)*FN;:([^\n]+)\n([^\n]+\n)*UID;:([^\n]+)\n([^\n]+\n)*END;:VCARD\n/UID:\4 FN:\2/g
+  '
+  echo
+)"
+
+for key in $(POST_KEYS); do case $key in
+  use_*)
+    use_iban="${use_iban} ${key#use_} "
+    ;;
+esac; done
+
+[ "$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
+
+{ printf '[ul .results'
+  for use in $check; do
+    iban="${use%_*}"
+    fn="$(POST "fn_${use}")"
+    uid="${UIDLIST%% FN:"$fn"${BR}*}" uid="${uid##*${BR}UID:}"
+  
+    # cfile="${_DATA}/vcard/${uid}.vcf"
+    cfile="$(grep -lxF "UID;:${uid}" "${_DATA}/vcard/"*.vcf || grep -lxF "UID:${uid}" "${_DATA}/vcard/"*.vcf)"
+    if SLOCK "$cfile" >/dev/null; then
+      card="$(pdi_load "$cfile")"
+      cnum="$(pdi_count "$card" X-IBAN)"
+      pdi_update_value "$card" X-IBAN "$((cnum + 1))" "$iban" >"$cfile"
+      printf '[li .success . [span .name . %s] [span .uid . (UID: %s)] assigned IBAN [span .iban . %s]]' \
+             "$(HTML "$fn")" "$(HTML "$uid")" "$(HTML "$iban")"
+      RELEASE_SLOCK "$cfile"
+    else
+      printf '[li .error . [span .name . %s] [span .uid . (UID: %s)] is being edited elsewhere]'
+             "$(HTML "$fn")" "$(HTML "$uid")"
+    fi
+  done
+  printf ']'
+  printf '[a .button href="%s/ledgers/iban_assign/" . %s]' "${_BASE}" "$(l10n Back)"
+} | yield_page ledgers_assign
-- 
2.39.2


From d55c2e8d7ae537ef9f6365ff620a08d3fa7aa79c Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Tue, 14 May 2024 12:31:01 +0200
Subject: [PATCH 12/16] transaction list on account page

---
 ledgers/account.sh | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/ledgers/account.sh b/ledgers/account.sh
index 2cc279b..a92694f 100755
--- a/ledgers/account.sh
+++ b/ledgers/account.sh
@@ -16,9 +16,9 @@ if [ ! -f "$cardfile" ]; then
   REDIRECT "${_BASE}/ledgers/"
 fi
 
-{
-  card="$(pdi_load "$cardfile")"
+{ card="$(pdi_load "$cardfile")"
   cat <<-EOF
+	[h1 $(l10n Payments)]
 	[div .card #${cardfile##*/}
 	  [div .section .basic . $(
 	    card_item "$card" FN GENDER NICKNAME BDAY X-ZACK-JOINDATE X-ZACK-LEAVEDATE SOUND PHOTO LOGO
@@ -36,6 +36,19 @@ fi
 	    $(card_item "$card" CATEGORIES)
 	  ]
 	]
+	[ul .transactions
+	$(cnt="$(pdi_count "$card" X-IBAN)"
+	  while [ "$cnt" -gt 0 ]; do
+	    pdi_value X-IBAN "$cnt" |RXLITERAL
+	    cnt=$((cnt - 1))
+	  done \
+	  | while read -r iban; do
+	     printf '[li . '
+	     grep -E "^[^\t]+	[^\t]+	${iban}	" |HTML
+	     printf ']'
+	  done
+	)]
 	EOF
+  
 } \
 | yield_page ledgers
-- 
2.39.2


From 6fdb619bc3d03f6d4877bbf840483e15f8bb6953 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Tue, 14 May 2024 12:31:04 +0200
Subject: [PATCH 13/16] Squashed 'cgilite/' changes from ad6888a..7f444e3

7f444e3 new function RXLITERAL() for escaping regex characters

git-subtree-dir: cgilite
git-subtree-split: 7f444e3275361651eb5e0b89f09fd3afd8113e9f
---
 storage.sh | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/storage.sh b/storage.sh
index 17ea0d0..5c61df0 100755
--- a/storage.sh
+++ b/storage.sh
@@ -94,6 +94,21 @@ UNSTRING(){
   printf '%s\n' "$out"
 }
 
+RXLITERAL(){
+  # sed -E 's;[].*+?^${}()|\[];\\&;g'
+  local in out=''
+  [ $# -gt 0 ] && in="$*" || in="$(cat)"
+  while [ "$in" ]; do case $in in
+    [.+^\$\{\}\(\)\[\]\*\?\|\\]*)
+      out="${out}\\${in%"${in#?}"}"; in="${in#?}";
+      ;;
+    *)out="${out}${in%%[.+^\$\{\}\(\)\[\]\*\?\|\\]*}"
+      in="${in#"${in%%[.+^\$\{\}\(\)\[\]\*\?\|\\]*}"}"
+      ;;
+  esac; done
+  printf '%s\n' "$out"
+}
+
 DBM() {
   local file="$1" cmd="$2"
   local k v key value
-- 
2.39.2


From 15f35d0dea982c686d885264a3ca774b6b212f21 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Tue, 14 May 2024 19:50:24 +0200
Subject: [PATCH 14/16] transaction list on account page

---
 ledgers/account.sh | 60 ++++++++++++++++++++++++++++++++++++----------
 style.css          | 56 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 103 insertions(+), 13 deletions(-)

diff --git a/ledgers/account.sh b/ledgers/account.sh
index a92694f..d9d3f4b 100755
--- a/ledgers/account.sh
+++ b/ledgers/account.sh
@@ -1,11 +1,17 @@
 #!/bin/sh
 
+credit() {
+  printf '%+03i\n' "$1" \
+  | sed -E 's;[0-9]{2}$;d&;; :0 s;([0-9])([0-9]{3}[dm]);\1m\2;; t0; y;dm;,.;'
+}
+
 if [ "$REQUEST_METHOD" = POST ]; then
   uid="$(POST uid)"
   cfile="$(grep -lxF "UID;:${uid}" "${_DATA}/vcard/"*.vcf || grep -lxF "UID:${uid}" "${_DATA}/vcard/"*.vcf)"
   REDIRECT "${_BASE}/ledgers/account.sh?card=${cfile##*/}"
 fi
 
+. "${_EXEC}/cgilite/storage.sh"
 . "${_EXEC}/pdiread.sh"
 . "${_EXEC}/cards/l10n.sh"
 . "${_EXEC}/cards/widgets.sh"
@@ -16,6 +22,9 @@ if [ ! -f "$cardfile" ]; then
   REDIRECT "${_BASE}/ledgers/"
 fi
 
+cledger="${cardfile##*/}"
+cledger="${_DATA}/ledgers/vcf.${cledger%.vcf}.account"
+
 { card="$(pdi_load "$cardfile")"
   cat <<-EOF
 	[h1 $(l10n Payments)]
@@ -36,19 +45,44 @@ fi
 	    $(card_item "$card" CATEGORIES)
 	  ]
 	]
-	[ul .transactions
-	$(cnt="$(pdi_count "$card" X-IBAN)"
-	  while [ "$cnt" -gt 0 ]; do
-	    pdi_value X-IBAN "$cnt" |RXLITERAL
-	    cnt=$((cnt - 1))
-	  done \
-	  | while read -r iban; do
-	     printf '[li . '
-	     grep -E "^[^\t]+	[^\t]+	${iban}	" |HTML
-	     printf ']'
-	  done
-	)]
 	EOF
-  
+  printf '[table .transactions [thead
+          [tr [th .date . %s][th .orig . %s][th .reference . %s][th .amount . %s][th .balance . %s]]' \
+         "$(l10n Date)" "$(l10n Originator)" "$(l10n "Reference Text")" "$(l10n Amount)" "$(l10n Balance)"
+  printf '][tbody'
+  cnt="$(pdi_count "$card" X-IBAN)"
+  while [ "$cnt" -gt 0 ]; do
+    pdi_value "$card" X-IBAN "$cnt" |RXLITERAL
+    cnt=$((cnt - 1))
+  done \
+  | {
+    while read -r iban; do
+      grep -hE "^[^\t]+	[^\t]+	${iban}	" "${_DATA}/ledgers/"*.tbl
+    done
+    if [ -f "$cledger" ]; then
+      :
+    fi
+  } \
+  | sort -n -k2 \
+  | { total=0
+    while read -r date dtstamp iban accname subject amount; do
+      total=$((total + amount))
+      printf '[tr [td .date . %s][td .orig [span . %s][span . %s]][td .reference . %s][td .amount . %s][td .balance . %s]]' \
+             "$date" "$(HTML "$iban")" \
+             "$(UNSTRING "$accname" |HTML)" "$(UNSTRING "$subject" |HTML)" \
+             "$(credit "$amount")" "$(credit "$total")"
+    done
+  }
+  printf '[tr [th colspan=5 . %s]]' "$(l10n 'Manual Record')"
+  printf '[tr [td .date [input type=date placeholder="%s" name=tdate]]
+              [td .orig [input id=trec_once  type=radio name="trec" value="once" selected]
+                        [label for=trec_once  . %s]<br/>
+                        [input id=trec_month type=radio name="trec" value="month"]
+                        [label for=trec_month . %s]
+                        [input type=date name="trec_until" placeholder="%s"]]
+              [td .reference . [textarea placeholder="%s" name=treference]]
+              [td .amount colspan=2 [input type=number placeholder="%s" name=tamount value=0.00 step=.01]]' \
+       "$(l10n Date)" "$(l10n once)" "$(l10n "monthly until")" "$(l10n until)" "$(l10n "Reference Text")" "$(l10n Amount)"
+  printf ']]]'
 } \
 | yield_page ledgers
diff --git a/style.css b/style.css
index a8ebe90..c00829e 100644
--- a/style.css
+++ b/style.css
@@ -475,3 +475,59 @@ form.ledgers {
   margin: auto;
   display: block;
 }
+
+body.ledgers .transactions {
+  width: 98%;
+  width: calc(100% - 2em);
+  margin: auto;
+}
+body.ledgers .transactions thead {
+  position: sticky;
+  top: 0;
+  z-index: 1;
+}
+body.ledgers .transactions th {
+  text-align: left;
+  background-color: #FFF;
+}
+body.ledgers .transactions td {
+  vertical-align: top;
+  font-family: monospace;
+  font-size: 12pt;
+}
+
+body.ledgers .transactions td:nth-child(2n) {
+  background-color: #DDD;
+}
+body.ledgers .transactions td:nth-child(2n + 1) {
+  background-color: #EEE;
+}
+
+body.ledgers .transactions .date {
+  min-width: 8em;
+}
+body.ledgers .transactions .orig span {
+  display: block;
+}
+body.ledgers .transactions .amount,
+body.ledgers .transactions .balance {
+  vertical-align: bottom;
+  min-width: 6em;
+  text-align: right;
+}
+
+body.ledgers .transactions .reference textarea {
+  width: 100%;
+}
+body.ledgers .transactions .orig input[type=date],
+body.ledgers .transactions .date input[type=date],
+body.ledgers .transactions .amount input[type=number] {
+  display: block;
+  width: 100%;
+}
+
+body.ledgers .transactions .orig input:not(:checked) + label + input[type=date] {
+  background-color: #DDD;
+  border-color: #888;
+  pointer-events: none;
+}
-- 
2.39.2


From e5ac3bcdba86bd9e7967c4ce7177399d2f9bf69f Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Tue, 14 May 2024 20:03:42 +0200
Subject: [PATCH 15/16] translations for accounting

---
 l10n.sh | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/l10n.sh b/l10n.sh
index 9780a09..4f13ad4 100755
--- a/l10n.sh
+++ b/l10n.sh
@@ -116,6 +116,28 @@ l10n_global() {
     filter_cancel) printf %s "Filter löschen";;
     export_csv) printf %s "Liste als CSV-Datei";;
 
+    # Accounting page
+    Ledgers) printf %s "Buchungslisten";;
+    '%i IBANs are unassigned') printf %s "%i IBANs sind nicht zugewiesen";;
+    'IBAN Assignments') printf %s "IBAN Zuweisung";;
+    'Assign IBANs') printf %s "IBANs Zuweisen";;
+    'Account') printf %s "Konto";;
+
+    'Accept Suggestions') printf %s "Vorschläge Akzeptieren";;
+    'Ignore Suggestions') printf %s "Vorschläge Ignorieren";;
+    'Submit Changes') printf %s "Änderungen Übernehmen";;
+
+    'Payments') printf %s "Zahlungen";;
+    'Date') printf %s "Datum";;
+    'Originator') printf %s "Auftraggeber";;
+    'Reference Text') printf %s "Verwendungszweck";;
+    'Amount') printf %s "Betrag";;
+    'Balance') printf %s "Stand";;
+    'Manual Record') printf %s "Manueller Eintrag";;
+    'once') printf %s "einmalig";;
+    'monthly until') printf %s "monatlich bis";;
+    'until') printf %s "bis";;
+
     # UI Labels Special
     course_attendance) printf %s "Kurs&shy;teil&shy;nahme";;
     vcf_seed_label) printf "Anmeld.	Vorn.	Nachn.	Geb.Tag	Geb.Monat	Geb.Jahr	Tel.	Mobil	()	EMail	()	Notiz";;
-- 
2.39.2


From 469a2e5a4b70dd706bdb26a88a1c7c239a0d2bbd Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Wed, 15 May 2024 16:37:59 +0200
Subject: [PATCH 16/16] date time helper

---
 datetime.sh | 101 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 101 insertions(+)
 create mode 100755 datetime.sh

diff --git a/datetime.sh b/datetime.sh
new file mode 100755
index 0000000..2b4bba9
--- /dev/null
+++ b/datetime.sh
@@ -0,0 +1,101 @@
+#!/bin/sh
+
+[ "$include_datetime" ] && return 0
+include_datetime="$0"
+
+# Copyright 2023 - 2024 Paul Hänsch
+# 
+# Permission to use, copy, modify, and/or distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
+# 
+# THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
+# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+isdate(){
+  local date="$1" y m d
+
+  if   printf %s "$date" \
+    | grep -xEq '[0-9]{4}-((01|03|05|07|08|10|12)-(0[1-9]|[12][0-9]|3[01])|(04|06|09|11)-(0[1-9]|[12][0-9]|30)|02-(0[1-9]|[12][0-9]))'
+  then  # y-m-d (ISO Date)
+    y="${date%%-*}" d="${date##*-}" m="${date%-*}" m="${m#*-}"
+  elif printf %s "$date" \
+    | grep -xEq '((0?1|0?3|0?5|0?7|0?8|10|12)/(0?[1-9]|[12][0-9]|3[01])|(0?4|0?6|0?9|11)/(0?[1-9]|[12][0-9]|30)|0?2-(0[1-9]|[12][0-9]))/([0-9]{2}|[0-9]{4})'
+  then  # m/d/y (US Date)
+    y="${date##*/}" m="${date%%/*}" d="${date%/*}" d="${d#*/}"
+  elif printf %s "$date" \
+    | grep -xEq '((0?[1-9]|[12][0-9]|3[01])[\./](0?1|0?3|0?5|0?7|0?8|10|12)|(0?[1-9]|[12][0-9]|30)[\./](0?4|0?6|0?9|11)|(0[1-9]|[12][0-9])[\./]0?2)[\./]([0-9]{2}|[0-9]{4})'
+  then  # d/m/y or d.m.y (European Date / German Date)
+    y="${date##*.}" d="${date%%.*}" m="${date%.*}" m="${m#*.}"
+  else
+    return 1
+  fi
+  [ $y -lt 100 -a $y -gt 50 ] && y=$((y + 1900))
+  [ $y -lt 100 -a $y -le 50 ] && y=$((y + 2000))
+  date="$(printf "%04i-%02i-%02i" $y ${m#0} ${d#0})"
+
+  # leap year
+  if [ "$m" -eq 2 -a "$d" -eq 29 ]; then
+    if   [ "$((y % 400))" -eq 0 ]; then
+      :
+    elif [ "$((y % 100))" -eq 0 ]; then
+      return 1
+    elif [ "$((y % 4))" -eq 0 ]; then
+      :
+    else
+      return 1
+    fi
+  fi
+
+  printf '%04i-%02i-%02i\n' "$y" "${m#0}" "${d#0}"
+  return 0
+}
+
+istime(){
+  time="$1" h= m=
+
+  if   printf %s "$time" | grep -xEq '(0?[1-9]|1[012])(:[0-5][0-9])? ?(am|AM)\.?'; then
+    time="${time%?[aA][mM]}" h="${time%:*}" h="$(h % 12)"
+    [ "$h" != "$time" ] && m="${time#*:}" || m=0
+  elif printf %s "$time" | grep -xEq '(0?[1-9]|1[012])(:[0-5][0-9])? ?(pm|PM)\.?'; then
+    time="${time%?[aA][mM]}" h="${time%:*}" h="$(h % 12 + 12)"
+    [ "$h" != "$time" ] && m="${time#*:}" || m=0
+  elif printf %s "$time" | grep -xEq '(0?[0-9]|1[0-9]|2[0-3]):[0-5][0-9]'; then
+    time="${time%?[aA][mM]}" h="${time%:*}" m="${time#*:}"
+  else
+    return 1
+  fi
+
+  printf '%02i:%02i\n' "${h#0}" "${m#0}"
+  return 0
+}
+
+numdays(){
+  # return number of days in a month (i.e. 28, 29, 30, or 31)
+  local y="$1" m="${2#0}"
+
+  case $m in
+    1|3|5|7|10|12)
+      printf 31\\n
+      ;;
+    4|6|8|9|11)
+      printf 30\\n
+      ;;
+    2) if  [ "$((y % 400))" -eq 0 ]; then
+        printf 29\\n
+      elif [ "$((y % 100))" -eq 0 ]; then
+        printf 28\\n
+      elif [ "$((y % 4))" -eq 0 ]; then
+        printf 29\\n
+      else
+        printf 28\\n
+      fi
+      ;;
+    *) return 1;;
+  esac
+}
-- 
2.39.2