default to cards page

[confetti] / pages / prescriptions.sh

diff --git a/pages/prescriptions.sh b/pages/prescriptions.sh
index fbcd5065b117d3ea29bce72a1b31ff2820e3c97e..fcef09a1d3d636b18d487254e716b38a98869b33 100755 (executable)
--- a/pages/prescriptions.sh
+++ b/pages/prescriptions.sh
@@ -23,6 +23,8 @@ declare -A mpx
 BR='
 '
 
+view_card="$_EXEC/templates/view_client.sh"
+
 list_prescriptions(){
   client="$1"
   find "$_DATA/prescriptions/" -name "${client%.vcf}.*.mpx" \
@@ -32,6 +34,11 @@ list_prescriptions(){
   | sort -r | cut -f2
 }
 
+list_prescription_issuers(){
+  sed -rn 's;^issuer:(.+)$;\1;p' ${_DATA}/prescriptions/*.mpx \
+  | sort -u
+}
+
 edit_prescription(){
   id="$1"
   prescfile="$_DATA/prescriptions/$id"
@@ -54,8 +61,13 @@ view_prescription(){
   mpx=()
   cat "$prescfile" |while read -r line; do
     val="${line#*:}"
-    mpx[${line%%:*}]="${val//\\n/$BR}"
+    mpx[${line%%:*}]="$(htmlsafe "${val//\\n/$BR}")"
   done
 
   . "$_EXEC/templates/view_prescription.sh"
 }
+
+therapy_dates(){
+  tpyfile="$_DATA/therapies/${1%.mpx}.tpy"
+  sed -rn 's;^session[0-9]+_date:(.+)$;\1;p' "$tpyfile"
+}