. "$_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:]
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