BR='
'
+view_card="$_EXEC/templates/view_client.sh"
+
list_prescriptions(){
client="$1"
find "$_DATA/prescriptions/" -name "${client%.vcf}.*.mpx" \
| 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"
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"
+}