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
$(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