unify ics parser

[confetti] / pages / prescriptions.sh

diff --git a/pages/prescriptions.sh b/pages/prescriptions.sh
index 73c5c2ce59512dc1f0c98cab2a7176309dad3962..fcef09a1d3d636b18d487254e716b38a98869b33 100755 (executable)
--- a/pages/prescriptions.sh
+++ b/pages/prescriptions.sh
@@ -39,7 +39,6 @@ list_prescription_issuers(){
   | sort -u
 }
 
-
 edit_prescription(){
   id="$1"
   prescfile="$_DATA/prescriptions/$id"
@@ -67,3 +66,8 @@ view_prescription(){
 
   . "$_EXEC/templates/view_prescription.sh"
 }
+
+therapy_dates(){
+  tpyfile="$_DATA/therapies/${1%.mpx}.tpy"
+  sed -rn 's;^session[0-9]+_date:(.+)$;\1;p' "$tpyfile"
+}