cleanup of category handling

[confetti] / pages / prescriptions.sh

diff --git a/pages/prescriptions.sh b/pages/prescriptions.sh
index b550d787641ca405621d483ea0272b3fa17a78f6..fcef09a1d3d636b18d487254e716b38a98869b33 100755 (executable)
--- a/pages/prescriptions.sh
+++ b/pages/prescriptions.sh
@@ -18,14 +18,56 @@
 # along with Confetti.  If not, see <http://www.gnu.org/licenses/>. 
 
 source "$_EXEC/pages/cards.sh"
+declare -A mpx
 
-list_prescriptions(){}
+BR='
+'
+
+view_card="$_EXEC/templates/view_client.sh"
+
+list_prescriptions(){
+  client="$1"
+  find "$_DATA/prescriptions/" -name "${client%.vcf}.*.mpx" \
+  | while read pfile; do
+    printf '%s\t%s\n' "$(grep '^date' "$pfile")" "${pfile##*/}"
+  done \
+  | 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"
   tempfile="$_DATA/temp/$id"
-  [ -f "$tempfile" ] && prescfile="$tempfile"
+  [ -f "$tempfile" ] || cp "$prescfile" "$tempfile"
+
+  mpx=()
+  cat "$tempfile" |while read -r line; do
+    val="${line#*:}"
+    mpx[${line%%:*}]="${val//\\n/$BR}"
+  done
 
   . "$_EXEC/templates/edit_prescription.sh"
 }
+
+view_prescription(){
+  id="$1"
+  prescfile="$_DATA/prescriptions/$id"
+
+  mpx=()
+  cat "$prescfile" |while read -r line; do
+    val="${line#*:}"
+    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"
+}