X-Git-Url: https://git.plutz.net/?p=confetti;a=blobdiff_plain;f=ledgers%2Findex.cgi;fp=ledgers%2Findex.cgi;h=e9dea1f20d76a2da4c82da357e3c868349b74c99;hp=e8852941f20f72615c33e2b4c0f0d4d40878ad24;hb=83129c4d53320ec1ef894b1d1f1cc853e5276def;hpb=539dda1528a76f45662ef01c8d9cdae3b5a1e992

diff --git a/ledgers/index.cgi b/ledgers/index.cgi
index e885294..e9dea1f 100755
--- a/ledgers/index.cgi
+++ b/ledgers/index.cgi
@@ -3,6 +3,11 @@
 . "$_EXEC/cgilite/storage.sh"
 . "$_EXEC/pdiread.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;,.;'
+}
+
 { printf '
   [form .upload action="%s/ledgers/csv_upload.sh" method="POST" enctype="multipart/form-data"
     [label for=ledger_upload . %s:]
@@ -40,13 +45,15 @@
       record="$(UNSTRING "${data%%	*}")"
       principal="${record#*	*	*	}" principal="${principal%%	*}"
       subject="${record#*	*	*	*	}" subject="${subject%%	*}"
-      printf '[p .principal . %s][p .subject . %s]' \
-             "$(UNSTRING "$principal" |HTML)" "$(UNSTRING "$subject" |HTML)"
+      amount="${record#*	*	*	*	*	}" amount="${amount%%	*}"
+      printf '[p .principal . %s][p .amount %s][p .subject . %s]' \
+             "$(UNSTRING "$principal" |HTML)" "$(credit "$amount")" "$(UNSTRING "$subject" |HTML)"
     elif [ $state = unknown ]; then
       principal="${data#*	*	*	}" principal="${principal%%	*}"
       subject="${data#*	*	*	*	}" subject="${subject%%	*}"
-      printf '[p .principal . %s][p .subject . %s]' \
-             "$(UNSTRING "$principal" |HTML)" "$(UNSTRING "$subject" |HTML)"
+      amount="${data#*	*	*	*	*	}" amount="${amount%%	*}"
+      printf '[p .principal . %s][p .amount %s][p .subject . %s]' \
+             "$(UNSTRING "$principal" |HTML)" "$(credit "$amount")" "$(UNSTRING "$subject" |HTML)"
     fi
   printf ']'
   done