From: Paul Hänsch <paul@plutz.net>
Date: Wed, 11 Dec 2019 20:08:41 +0000 (+0100)
Subject: list therapies in vcard overview
X-Git-Url: https://git.plutz.net/?a=commitdiff_plain;h=705c924c81dd8a77706c6c37543f0da8af5aec41;p=lobster

list therapies in vcard overview
---

diff --git a/cards/l10n.sh b/cards/l10n.sh
index 044a6a1..ec02d65 100755
--- a/cards/l10n.sh
+++ b/cards/l10n.sh
@@ -85,6 +85,7 @@ l10n(){
     prescriptions) printf %s "Verordnungen";;
     new_prescription) printf %s "Neue Verordnung";;
     no_icd) printf %s "Kein ICD Code";;
+    therapies) printf %s "Therapien";;
   
     X-ZACK-JOINDATE)  printf %s "An&shy;mel&shy;de&shy;da&shy;tum";;
     X-ZACK-LEAVEDATE) printf %s "Ab&shy;mel&shy;de&shy;da&shy;tum";;
diff --git a/cards/list.sh b/cards/list.sh
index 9ff3125..9224ace 100755
--- a/cards/list.sh
+++ b/cards/list.sh
@@ -63,6 +63,7 @@ print_card(){
       [div .section .phone     $(card_item "$card" TEL EMAL IMPP URL)]
       [div .section .insurance $(card_item "$card" X-HEALTH-INSURANCE)]
       [div .section .note      $(card_item "$card" NOTE X-CLIENT-REFERRAL)]
+      [div .section .therapies $(card_item "$card" therapies)]
       [div .control
         [a .item href="/cards/edit_card.sh?card=${cardfile##*/}" $(l10n edit)]
         [a .item href="/cards/export_card.sh?card=${cardfile##*/}" $(l10n vcf_export)]
diff --git a/cards/widgets.sh b/cards/widgets.sh
index 4d0f733..d2ed326 100755
--- a/cards/widgets.sh
+++ b/cards/widgets.sh
@@ -21,7 +21,7 @@ cat <<EOF
   [fieldset .item
     [legend $(l10n filter_item):]
 
-    $(for field in any name street zip TEL BDAY CATEGORIES; do
+    $(for field in any name street zip TEL BDAY; do
       printf '[input id="%s%i" type="radio" name="filter_type%i" value="%s" %s]
               [label for="%s%i" %s ]' \
               "$field" "$n" "$n" "$field" "$([ "$1" = "$field" ] && printf checked )" \
@@ -132,6 +132,17 @@ card_item(){
                    "$(l10n hi_status)" "$(unescape "$hi_status" |HTML)"
         done
         ;;
+      therapies)
+        client="$(pdi_value "$card" UID)"
+        printf '[h3 %s]' "$(l10n therapies)"
+        (cd "$_DATA/prescriptions/"; printf '%s\n' "${client}".*.mpx) \
+        | while read mpxfile; do
+          [ "$mpxfile" = "${client}.*.mpx" ] && break
+          mpx="${mpxfile%.mpx}";
+          printf '[a .item .therapy href="/therapies/%s" . Therapy - %s]' \
+            "${mpx%.*}/${mpx#*.}" "$(sed -E '/^date:.*/{s;^date:;;;q;};d;' "$_DATA/prescriptions/$mpxfile")"
+        done |sort -r
+        ;;
       *)[ $cnt -gt 0 ] && printf '[h3 %s]' "$(l10n "$item")"
         shy="$(printf '\302\255')"
         seq 1 $cnt |while read c; do