improved vcf parser (speed, security)

[confetti] / pages / prescriptions.sh

diff --git a/pages/prescriptions.sh b/pages/prescriptions.sh
index 2786ee3afe4f2c7259234471884fe1bf463e9212..fcef09a1d3d636b18d487254e716b38a98869b33 100755 (executable)
--- a/pages/prescriptions.sh
+++ b/pages/prescriptions.sh
@@ -34,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"
@@ -56,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"
+}