unify ics parser
[confetti] / pages / prescriptions.sh
1 #!/bin/zsh
2
3 # Copyright 2016 Paul Hänsch
4 #
5 # This file is part of Confetti.
6
7 # Confetti is free software: you can redistribute it and/or modify
8 # it under the terms of the GNU Affero General Public License as published by
9 # the Free Software Foundation, either version 3 of the License, or
10 # (at your option) any later version.
11
12 # Confetti is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 # GNU Affero General Public License for more details.
16
17 # You should have received a copy of the GNU Affero General Public License
18 # along with Confetti.  If not, see <http://www.gnu.org/licenses/>. 
19
20 source "$_EXEC/pages/cards.sh"
21 declare -A mpx
22
23 BR='
24 '
25
26 view_card="$_EXEC/templates/view_client.sh"
27
28 list_prescriptions(){
29   client="$1"
30   find "$_DATA/prescriptions/" -name "${client%.vcf}.*.mpx" \
31   | while read pfile; do
32     printf '%s\t%s\n' "$(grep '^date' "$pfile")" "${pfile##*/}"
33   done \
34   | sort -r | cut -f2
35 }
36
37 list_prescription_issuers(){
38   sed -rn 's;^issuer:(.+)$;\1;p' ${_DATA}/prescriptions/*.mpx \
39   | sort -u
40 }
41
42 edit_prescription(){
43   id="$1"
44   prescfile="$_DATA/prescriptions/$id"
45   tempfile="$_DATA/temp/$id"
46   [ -f "$tempfile" ] || cp "$prescfile" "$tempfile"
47
48   mpx=()
49   cat "$tempfile" |while read -r line; do
50     val="${line#*:}"
51     mpx[${line%%:*}]="${val//\\n/$BR}"
52   done
53
54   . "$_EXEC/templates/edit_prescription.sh"
55 }
56
57 view_prescription(){
58   id="$1"
59   prescfile="$_DATA/prescriptions/$id"
60
61   mpx=()
62   cat "$prescfile" |while read -r line; do
63     val="${line#*:}"
64     mpx[${line%%:*}]="$(htmlsafe "${val//\\n/$BR}")"
65   done
66
67   . "$_EXEC/templates/view_prescription.sh"
68 }
69
70 therapy_dates(){
71   tpyfile="$_DATA/therapies/${1%.mpx}.tpy"
72   sed -rn 's;^session[0-9]+_date:(.+)$;\1;p' "$tpyfile"
73 }