X-Git-Url: https://git.plutz.net/?p=confetti;a=blobdiff_plain;f=templates%2Fview_client.sh;h=0fe5e983c9ee7b11814c4a239ac19b49dfc9426d;hp=c1e3987c09dc7807fdc8ae92d637004b6754fddc;hb=0dc31a9e7992c227b680180d3ceee031ac293169;hpb=afdc06688cc51a168011da48adbafcba238d3ae1

diff --git a/templates/view_client.sh b/templates/view_client.sh
index c1e3987..0fe5e98 100755
--- a/templates/view_client.sh
+++ b/templates/view_client.sh
@@ -15,89 +15,109 @@
 # You should have received a copy of the GNU Affero General Public License
 # along with Confetti.  If not, see <http://www.gnu.org/licenses/>. 
 
-n=$(printf %s "$values[N]" \
-    | sed -rn 's:^([^;]*)(\;[^;]*)(\;[^;]*)?(\;[^;]*)?(\;[^;]*)?$:\4 \2 \3 \1 \5:gp' \
-    | sed -r 's:,: :;s:\;: :g;s: +: :g;s:^ $::;'
+list_items(){
+  item="$1"
+  [ -n "${values[$item]+x}" ] && \
+    printf '<h3>%s</h3>\n' "$(l10n $item)"
+  for n in "$item" "$item"{0..100}; do
+    [ -z "${values[$n]+x}" ] && break \
+    || printf '<span class="item %s">%s</span>\n' \
+         "$item" "$(htmlsafe ${values[$n]})"
+  done
+}
+
+list_section(){
+  printf '<div class="section %s">' "$1"
+  shift 1
+  for each in $@; do
+    list_items "$each"
+  done
+  printf '</div>'
+}
+
+n=$(printf %s "$values[N+3] $values[N+1] $values[N+2] $values[N+0] $values[N+4]" \
+    | sed -r ':X;$!{N;bX}; s;^[\n ]+;;; s;[\n ]+$;;; s;[\r\t\n ]+; ;g;'
    )
 fullname="${n:-${values[FN]:-${values[NICKNAME]}}}"
 
-hi_company="$(printf %s "${values[X-HEALTH-INSURANCE]}" |cut -d\; -f1)"
-hi_number="$(printf %s "${values[X-HEALTH-INSURANCE]}" |cut -d\; -f2)"
-hi_status="$(printf %s "${values[X-HEALTH-INSURANCE]}" |cut -d\; -f3)"
+hi_company="${values[X-HEALTH-INSURANCE+0]}"
+ hi_number="${values[X-HEALTH-INSURANCE+1]}"
+ hi_status="${values[X-HEALTH-INSURANCE+2]}"
+
+printf '<div class="section basic">
+    <h2 class="item FN">%s</h2>
+' "$fullname"
+[ -n "$values[GENDER]" ] && printf '
+  <span class="item GENDER">%s</span>
+  ' "$(l10n "$values[GENDER]")"
 
+for n in NICKNAME NICKNAME{0..100}; do
+  [ -z "${values[$n]+x}" ] && break \
+  || printf '
+      <span class="item NICKNAME">aka. %s</span>
+  ' "$(htmlsafe ${values[$n]})"
+done
 
-cat <<END_HTML
-  <div class="section basic">
-    <h2 class="item FN">$fullname</h2>
-    ${values[GENDER]:+<span class="item GENDER">$(l10n $values[GENDER])</span>}
+[ -n "$values[BDAY]" ] && printf '
+  <span class="item BDAY"><b>*:</b>%s</span>
+  ' "$(htmlsafe "$values[BDAY]")"
+[ -n "$values[X-ZACK-JOINDATE]" ] && printf '
+  <span class="item X-ZACK-JOINDATE"><b>%s:</b>%s</span>
+  ' "$(l10n label_join)" "$(htmlsafe "$values[X-ZACK-JOINDATE]")"
+[ -n "$values[X-ZACK-LEAVEDATE]" ] && printf '
+  <span class="item X-ZACK-LEAVEDATE"><b>%s:</b>%s</span>
+  ' "$(l10n label_leave)" "$(htmlsafe "$values[X-ZACK-LEAVEDATE]")"
 
-    $(for n in NICKNAME NICKNAME{0..10}; do
-      echo "${values[$n]:+<span class="item NICKNAME">aka. $values[$n]</span>}"
-    done)
+[ -n "$values[SOUND]" ] && printf '
+  <audio controls="controls" class="item SOUND">
+    <source type="audio/ogg" src="data:audio/ogg;base64,%s" />
+  </audio>' "$values[SOUND]"
 
-    ${values[BDAY]:+<span class="item BDAY"><label>*:</label> ${values[BDAY]}</span>}
-    ${values[X-ZACK-JOINDATE]:+<span class="item X-ZACK-JOINDATE"><label>$(l10n label_join):</label> $values[X-ZACK-JOINDATE]</span>}
-    ${values[X-ZACK-LEAVEDATE]:+<span class="item X-ZACK-LEAVEDATE"><label>$(l10n label_leave):</label> $values[X-ZACK-LEAVEDATE]</span>}
-    ${values[SOUND]:+<audio controls="controls" class="item SOUND"><source type="audio/ogg" src="data:audio/ogg;base64,$values[SOUND]" /></audio>}
-    ${values[PHOTO]:+<img class="item PHOTO" src="data:image/$tags[PHOTO_TYPE];base64,$values[PHOTO]" />}
-    ${values[LOGO]:+<img class="item LOGO" src="data:image/$tags[LOGO_TYPE];base64,$values[LOGO]" />}
-  </div><!--
+[ -n "$values[PHOTO]" ] && printf '
+  <img class="item PHOTO" src="data:image/%s;base64,%s" />
+  ' "${values[PHOTO_TYPE]}" "${values[PHOTO]}"
 
-  --><div class="section address">
-    <h3>$(l10n ADR)</h3>
-    $(for n in ADR ADR{0..10}; do
-      echo "${values[$n]:+<span class="item ADR">$values[$n]</span>}"
-    done)
-    ${values[URL]:+<h3>$(l10n URL)</h3>}
-    $(for n in URL URL{0..10}; do
-      echo "${values[$n]:+<span class="item URL"><a href="$values[$n]">$values[$n]</a></span>}"
-    done)
-  </div><!--
+[ -n "$values[LOGO]" ] && printf '
+  <img class="item PHOTO" src="data:image/%s;base64,%s" />
+  ' "${values[LOGO_TYPE]}" "${values[LOGO]}"
 
-  --><div class="section phone">
-    <h3>$(l10n TEL)</h3>
-    $(for n in TEL TEL{0..10}; do
-      echo "${values[$n]:+<span class="item TEL">$tags[${n}_TYPE] $values[$n]</span>}"
-    done)
-    ${values[EMAIL]:+<h3>$(l10n EMAIL)</h3>}
-    $(for n in EMAIL EMAIL{0..10}; do
-      echo "${values[$n]:+<span class="item EMAIL"><a href="mailto:$values[$n]">$values[$n]</a></span>}"
-    done)
-    ${values[IMPP]:+<h3>$(l10n IMPP)</h3>}
-    $(for n in IMPP IMPP{0..10}; do
-      echo "${values[$n]:+<span class="item IMPP">$tags[${n}_TYPE] <a href="$values[$n]">$values[$n]</a></span>}"
-    done)
-  </div><!--
+list_items ADR
+list_items URL
+printf '</div>'
 
-  --><div class="section insurance">
+  list_section phone TEL EMAIL IMPP
+
+cat <<-END_HTML
+  <div class="section insurance">
     <h3>$(l10n X-HEALTH-INSURANCE)</h3>
-    ${hi_company:+<span class="item hi_comapany">${hi_company}</span>}
-    ${hi_number:+<span class="item hi_number"><label>$(l10n hi_number):</label> ${hi_number}</span>}
-    ${hi_status:+<span class="item hi_status"><label>$(l10n hi_status):</label> ${hi_status}</span>}
-  </div><!--
+    ${hi_company:+<span class="\""item hi_comapany"\"">${hi_company}</span>}
+    ${hi_number:+<span class="\""item hi_number"\""><label>$(l10n hi_number):</label> ${hi_number}</span>}
+    ${hi_status:+<span class="\""item hi_status"\""><label>$(l10n hi_status):</label> ${hi_status}</span>}
+  </div>
+END_HTML
 
-  --><div class="section note">
-    ${values[NOTE]:+<h3>$(l10n NOTE)</h3>}
-    $(for n in NOTE NOTE{0..10}; do
-      echo "${values[$n]:+<span class="item NOTE">$values[$n]</span>}"
-    done)
-    ${values[X-CLIENT-REFERRAL]:+<h3>$(l10n X-CLIENT-REFERRAL)</h3>}
-    $(for n in X-CLIENT-REFERRAL X-CLIENT-REFERRAL{0..10}; do
-      echo "${values[$n]:+<span class="item X-CLIENT-REFERRAL">$values[$n]</span>}"
-    done)
-  </div><!--
+list_section note NOTE X-CLIENT-REFERRAL
 
-  --><div class="section prescriptions">
+cat <<-END_HTML
+  <div class="section prescriptions">
     <h3>$(l10n prescriptions)</h3>
     <ul>
-    $(find "$_DATA/prescriptions/" -name "${id%.vcf}.*.mpx" \
+    $(declare -A mpx
+      find "$_DATA/prescriptions/" -name "${id%.vcf}.*.mpx" \
       | while read pfile; do
-        printf '%s\t%s\t%s\n' "$(grep '^date' "$pfile")" "$(sed -nr 's;^icd10:(.*)$;\1;p' "$pfile")"
-      done \
-      | sort -r | cut -f2 \
-      | while read icd; do
-        printf '<li><a href="?p=prescriptions&amp;client=%s" >%s</a></li>' "${id}" "${icd:-$(l10n no_icd)}"
-      done)
+        mpx=(); cat "$pfile" |while read -r line; do
+          val="${line#*:}"
+          mpx[${line%%:*}]="$(htmlsafe "${val//\\n/$BR}")"
+        done
+        printf '<li><a href="?p=prescriptions&amp;client=%s#%s" >%s: %s - %s</a></li>' \
+          "${id}" "${pfile##*/}" "${mpx[date]}" "${mpx[indicator]}" \
+          "$([ -n "${mpx[remidy]}" ] && printf '%s %s' "${mpx[quantity]}" "${mpx[remidy]}" 
+             for n in {0..10}; do
+               [ -n "${mpx[remidy${n}]}" ] && printf ', %s %s' "${mpx[quantity${n}]}" "${mpx[remidy${n}]}" 
+             done
+           )"
+      done |sort -r
+    )
     </ul>
   </div>
 END_HTML