styling for iban assignment

[confetti] / cards / export_csv.sh

diff --git a/cards/export_csv.sh b/cards/export_csv.sh
index a1004f7083bd4c84231c65dbcb409fb9ab2ec699..b566c034d3bbec750d5d57d99f1b2887cce08773 100755 (executable)
--- a/cards/export_csv.sh
+++ b/cards/export_csv.sh
@@ -4,8 +4,6 @@
 . $_EXEC/cards/l10n.sh
 . $_EXEC/cards/list.sh
 
-upcase=' y;abcdefghijklmnopqrstuvwxyzäöüé;ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜÉ;; '
-
 filter="$(GET f)"
 order="$(GET o)"
 
@@ -26,7 +24,12 @@ list_item() {
   seq 1 $cnt |while read n; do case $item in
     TEL)
       tel="$(pdi_value "$card" "$item" "$n" |unescape)"
-      [ "$tel" ] && printf '%s: %s\n' "$(l10n "TYPE=$(pdi_attrib "$card" "$item" "$n" TYPE)")" "$tel"
+      ttype="$(pdi_attrib "$card" "$item" "$n" TYPE)"
+      if [ "$tel" -a "$ttype" ]; then 
+        printf '%s: %s\n' "$(l10n "TYPE=$ttype")" "$tel"
+      elif [ "$tel" ]; then
+        printf '%s\n' "$tel"
+      fi
       ;;
     GENDER)
       gen="$(pdi_value "$card" "$item" "$n" |unescape)"