X-Git-Url: https://git.plutz.net/?a=blobdiff_plain;f=ledgers%2Faccount.sh;h=a92694ffee0cd9801a79001b413f5851a6d6ed00;hb=d55c2e8d7ae537ef9f6365ff620a08d3fa7aa79c;hp=2cc279bb10e8b3f82cc79b64f379d64b3551f241;hpb=207eb8177406ef0cc1f7629337a2c328394ba752;p=confetti

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