-edit_client(){
- id="$1"
- if [ -f "clients/$id" ]; then
- read -r address hourly <"clients/$id"
- fi
- [ "$address" ] || address="address="
- [ "$hourly" ] || hourly="hourly="
- printf '
- [form method="POST" action="/update_client"
- [hidden "id" "%s"]
- <textarea name="address" placeholder="address">
-%s</textarea>
- [label for=hourly Hourly Rate:]
- [input #hourly type=number name=hourly value="%s"]
- [submit "update" "update" Update]
- ]' \
- "$(HTML $id)" \
- "$(UNSTRING "${address#address=}" |HTML)" \
- "$(UNSTRING "${hourly#hourly=}" |grep -xE '[0-9]+')"
-}
-
-edit_sender(){
- id="$1"
- if [ -f "senders/$id" ]; then
- address="$(cat "senders/$id")"
- fi
- [ "$address" ] || address="Name
-Street
-City
-
-Phone:
-000 000000
-
-Tax no.
-xxx / 000 / ###
-"
- printf '
- [form method="POST" action="/update_sender"
- [hidden "id" "%s"]
- <textarea name="address" placeholder="address">%s</textarea>
- [submit "update" "update" Update]
- ]' \
- "$(HTML $id)" \
- "$(HTML "${address}")"
-}
-
-list_clients(){
- [ -d clients/ ] && for c in clients/*; do
- read -r address hourly <"$c"
- address="$(UNSTRING "${address#address=}")"
- [ "$address" ] || address="(no address)"
- printf '[div .client .address <!--
- -->%s[a href="/clients/%s" Edit]]
- ' "$(HTML "$address")" "$(HTML "${c#clients/}")"
- done
-}
-
-list_senders(){
- [ -d senders/ ] && for s in senders/*; do
- address=$(cat "$s")
- [ "$address" ] || address="(no address)"
- printf '[div .sender .address <!--
- -->%s[a href="/senders/%s" Edit]]
- ' "$(HTML "$address")" "$(HTML "${s#senders/}")"
- done
-}
-
-list_invoices(){
- [ -d invoices/ ] && for i in invoices/*; do
- read -r sender client date number vat<<-EOF
- sed q "$i"
- EOF
- [ -f "senders/${sender#sender=}" ] \
- && sender="$(sed q "senders/${sender#sender=}")" \
- || sender="(unset)"
- [ -f "clients/${client#client=}" ] \
- && client="$(sed q "client/${client#client=}")" \
- || client="(unset)"
- [ "$date" -gt 0 ] \
- && date="$(date -d @$date +%x)" \
- || date="(unset)"