+ 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
+ ;;