remove leading slash (/) from link anchor when redirecting

[lobster] / cards / widgets.sh

diff --git a/cards/widgets.sh b/cards/widgets.sh
index 4d0f7337cbc22fbab0d6c1f1093caa51d92d43c5..d2ed32611932d5fd9bf7067b904679892f797e69 100755 (executable)
--- 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