}
therapy_sessions(){
- n=1; while [ "$(TPY session$n)" ]; do
+ n=1; while [ "$(TPY session$n)" ]; do n=$((n + 1)); done
+
+ sid=session$n
+ cat <<-EOF
+ [fieldset .tab
+ [submit "new_session" "$sid" .no . +]
+ [input .date name="${sid}_date" value="" placeholder=$(l10n date)]
+ [input .therapist name="${sid}_therapist" value="" placeholder=$(l10n therapist)]
+ [span .signature]
+ [hidden "${sid}_note1" ""]
+ ]
+ EOF
+
+ seq $((n - 1)) -1 1 | while read n; do
session_n="$n"
sid=session${session_n}
[span .signature [checkbox "${sid}_sigset" "pos" $(checked "$(TPY "${sid}_sigset")" "pos")]]
]
[div .tab
- [img .dotmark .ov src="/therapies/${id}_${sid}.png" alt=""]
+ [img .dotmark .ov src="/therapies/${id}_${sid}.png?${_DATE}" alt=""]
$(n=1; while TPY "session${session_n}_note${n}" >/dev/null; do
[ "$(TPY "session${session_n}_note${n}")" ] && x=$n
n=$(($n + 1))
[button type="submit" name=delete_session value="$session_n" .delete $(l10n delete_session)]
]
EOF
- n=$(($n+1))
done
-
- sid=session$n
-
- cat <<-EOF
- [fieldset .tab
- [submit "new_session" "$sid" .no . +]
- [input .date name="${sid}_date" value="" placeholder=$(l10n date)]
- [input .therapist name="${sid}_therapist" value="" placeholder=$(l10n therapist)]
- [span .signature]
- [hidden "${sid}_note1" ""]
- ]
- EOF
}
cat <<EOF
[h1 $(l10n therapy)]
[div .patient
- [h2 . [a "/cards/#{id%.*}.vcf" ⬅ $(VCF FN |HTML)]]
+ [h2 . [a "/cards/#${id%.*}.vcf" ⬅ $(VCF FN |HTML)]]
]
[div .therapies
| sed -E ':X;N;$!bX; s;^[\n ]+;;; s;[\n ]+$;;; s;(\n.*\n|\n); - ;;'
)"
if [ "${tpy%.*}.${tpy#*.}" = "${id}" ]; then
- printf '[a .item .therapy .current href="/therapies/%s" . %s]' \
+ printf '[a .item .therapy .current href="/therapies/%s" . %s] ' \
"${tpy%.*}/${tpy#*.}" "$(HTML "${tpydates:--}")"
else
- printf '[a .item .therapy href="/therapies/%s" . %s]' \
+ printf '[a .item .therapy href="/therapies/%s" . %s] ' \
"${tpy%.*}/${tpy#*.}" "$(HTML "${tpydates:--}")"
fi
- done |sort -r
+ done |sort -n
)
+ [a .item .therapy href="/therapies/${id%%.*}/new" . +]
]
EOF
[textarea name=stickynote . $(TPY stickynote |HTML)]
[button type=submit $(l10n save)]
]
+EOF
- [input .stickynote type=checkbox name=c_timesheet #show_timesheet]
- [fieldset .stickynote
- [label for="show_timesheet" $(l10n timesheet)]
- [h2 $(l10n timesheet)]
- [table [thead [tr
- [th $(l10n time_goal)][th $(l10n time_actual)][th $(l10n time_difference)]
- ]][tbody
- $(for n in '' 0 1 2 3 4 5 6 7 8 9 10; do
- tsgoal="$(TPY tsgoal$n |grep -m1 -xE '[0-9]+')"
- tsactual="$(TPY tsactual$n |grep -m1 -xE '[0-9]+')"
- printf '[tr [td [input type=number name=tsgoal value="%s"]][td [input type=number name=tsactual value="%s"]][td %s]]' \
- "$tsgoal" "$tsactual" "$(( ${tsgoal:-0} - ${tsactual:-0} ))"
- done)
- ]]
- [button type=submit $(l10n save)]
- ]
+# cat <<EOF
+# [input .stickynote type=checkbox name=c_timesheet #show_timesheet]
+# [fieldset .stickynote
+# [label for="show_timesheet" $(l10n timesheet)]
+# [h2 $(l10n timesheet)]
+# [table [thead [tr
+# [th $(l10n time_goal)][th $(l10n time_actual)][th $(l10n time_difference)]
+# ]][tbody
+# $(for n in '' 0 1 2 3 4 5 6 7 8 9 10; do
+# tsgoal="$(TPY tsgoal$n |grep -m1 -xE '[0-9]+')"
+# tsactual="$(TPY tsactual$n |grep -m1 -xE '[0-9]+')"
+# printf '[tr [td [input type=number name=tsgoal value="%s"]][td [input type=number name=tsactual value="%s"]][td %s]]' \
+# "$tsgoal" "$tsactual" "$(( ${tsgoal:-0} - ${tsactual:-0} ))"
+# done)
+# ]]
+# [button type=submit $(l10n save)]
+# ]
+# EOF
+cat <<EOF
[label .tab .heading
[span .no $(l10n number)][span .date $(l10n date)][span .therapist $(l10n therapist)][span .signature $(l10n signature)]
]
[canvas #canvas .dotmark .ov width="${bg_dim%x*}" height="${bg_dim#*x}" ]
[input type=hidden #image_serialize name=imagedata value=""]
- [button type=submit $(l10n save)]
+ [button #savebutton type=submit $(l10n save)]
]
[span #jsdebug style="display: none; position: fixed; right:0; bottom:0" Debug]
[script type="text/javascript" src="/therapies/therapy_draw.js"]
+[script type="text/javascript" src="/therapies/autosave.js"]
EOF