support for prescriptions

[confetti] / actions / new_prescription.sh

diff --git a/actions/new_prescription.sh b/actions/new_prescription.sh
index af99cd0457631e87077f26a6d391ba7f2d87591f..b777cec0d948957e047622bbba04421bae31b9a6 100755 (executable)
--- a/actions/new_prescription.sh
+++ b/actions/new_prescription.sh
@@ -17,17 +17,22 @@
 # You should have received a copy of the GNU Affero General Public License
 # along with Confetti.  If not, see <http://www.gnu.org/licenses/>. 
 
-cgi_post
 cgi_refdata
 
-client="${_POST[client]}"
+client="${_POST[client]:-${_GET[client]}}"
 
 uid=$(uuidgenerator)
 prescription="${client%.vcf}.${uid}.mpx"
 
+cardfile="$_DATA/vcard/$client"
 tempfile="$_DATA/temp/$prescription"
 
 cat >"$tempfile" <<EOF
+prescription:${prescription}
+insurance:$(sed -nr 's;^X-HEALTH-INSURANCE:(.*)\;.*\;\r?$;\1;p' "$cardfile")
+bday:$(sed -nr 's;^BDAY:(.*)\r?$;\1;p' "$cardfile")
+name:$(sed -rn '/^N[\;:]/{s;^N(\;[^:]*)?:([^\;]*)(\;[^\;]*)(\;[^\;]*)?(\;[^\;]*)?(\;[^\;]*)?\r?$;\5 \3 \4 \2 \6;;s;[\;,]; ;g;s; +; ;g;s;^ | $;;g;p}' "$cardfile")\n$(sed -nr 's;^ADR:(.*)\r?$;\1;p' "$cardfile")
+date:$(date +%F)
 EOF
 
 echo -n "Location: ?p=prescriptions&edit=$prescription\n\n"