+ cat <<-EOF
+ [form method=POST
+ [hidden "tid" "$(transid "${cledger}")"]
+ [table .transactions
+ [thead [tr
+ [th .date . $(l10n Date)][th .orig . $(l10n Originator)]
+ [th .reference . $(l10n "Reference Text")]
+ [th .amount . $(l10n Amount)][th .balance . $(l10n Balance)]
+ ]]
+ [tbody
+ EOF
+ cnt="$(pdi_count "$card" X-IBAN)"
+ { while [ "$cnt" -gt 0 ]; do
+ pdi_value "$card" X-IBAN "$cnt" |RXLITERAL
+ cnt=$((cnt - 1))
+ done
+ RXLITERAL "${cardfile%.vcf}"; echo
+ } |debug \
+ | while read -r iban; do
+ grep -hE "^[^\t]+ [^\t]+ ${iban} " "${_DATA}/ledgers/"*
+ done \
+ | sort -n -k2 \
+ | { total=0
+ while read -r date dtstamp iban accname reftext amount; do
+ total=$((total + amount))
+ if [ "$iban" = "${cardfile%.vcf}" ]; then
+ printf '[tr [td .date . %s][td .orig [span . %s][span . %s]][td .reference . %s]
+ [td .amount . %s][td .balance . %s]]' \
+ "$date" "$(l10n "Credit Account")" \
+ "$(UNSTRING "$accname" |HTML)" "$(UNSTRING "$reftext" |HTML)" \
+ "$(credit "$amount")" "$(credit "$total")"
+ else
+ 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 "$reftext" |HTML)" \
+ "$(credit "$amount")" "$(credit "$total")"
+ fi
+ done
+ }
+ cat <<-EOF
+ [tr [th colspan=5 . $(l10n 'Manual Record')]]
+ [tr [td .date
+ [input type=date placeholder="$(l10n Date)" name=tdate value="$(date +%F)"]
+ [input type=checkbox id=rr_month name=recur value=monthly]
+ [label for=rr_month $(l10n Recur Monthly)]
+ ][td .orig ]
+ [td .reference . [textarea placeholder="$(l10n "Reference Text")" name=tref]]
+ [td .amount [input type=number placeholder="$(l10n Amount)" name=tamount value=0.00 step=.01]]
+ [td .balance [button type=submit . $(l10n Submit)]]
+ ]]]]
+ EOF