$(l10n "$key")"
- [ -n "$tag[TYPE]" ] && echo -n "($tag[TYPE])"
- echo ":"
- ;|
- *)
- echo ""
- echo ""
- ;;
- esac
+edit_card() {
+ n_last="$(echo "$values[N]" |sed -r 's:^([^;]*;){0} *([^;]*);.*$:\2:')"
+ n_first="$(echo "$values[N]" |sed -r 's:^([^;]*;){1} *([^;]*);.*$:\2:')"
+ n_middle="$(echo "$values[N]" |sed -r 's:^([^;]*;){2} *([^;]*);.*$:\2:')"
+ n_pre="$(echo "$values[N]" |sed -r 's:^([^;]*;){3} *([^;]*);.*$:\2:')"
+ n_post="$(echo "$values[N]" |sed -r 's:^([^;]*;){4} *([^;]*);*$:\2:')"
+
+
+ echo ' '
+ echo ''
+ echo ' '
+ echo ' '$(l10n TEL)''
+ for n in TEL TEL{0..10}; do [ -n "$values[$n]" ] &&\
+ echo ' '$tags[${n}_TYPE]' '$values[$n]''
+ done
+ echo '
'
+ echo ''
+ echo ' '
+ echo '
'$(l10n EMAIL)''
+ for n in EMAIL EMAIL{0..10}; do [ -n "$values[$n]" ] &&\
+ echo '
'$values[$n]''
+ done
+ [ -n "$values[IMPP]" ] && \
+ echo '
'$(l10n IMPP)''
+ for n in IMPP IMPP{0..10}; do [ -n "$values[$n]" ] &&\
+ echo '
'$tags[${n}_TYPE]' '$values[$n]''
+ done
+ echo '
'
+ echo ''
+ echo ' '
+ echo '
'$(l10n ADR)''
+ for n in ADR ADR{0..10}; do [ -n "$values[$n]" ] &&\
+ echo '
'$values[$n]''
+ done
+ [ -n "$values[URL]" ] && \
+ echo '
'$(l10n URL)''
+ for n in URL URL{0..10}; do [ -n "$values[$n]" ] &&\
+ echo '
'$values[$n]''
+ done
+ echo '
'
+ echo ''
+ echo ' '
+ echo ' '$(l10n NOTE)''
+ for n in NOTE NOTE{0..10}; do [ -n "$values[$n]" ] &&\
+ echo ' '$values[$n]''
+ done
+ echo '
'
+ echo ''
+ echo ' '
+ echo ' '
+ echo ' '
+ echo ' '
+ echo ' '
+ echo '
'
}
-edit_attendee() {
- cardfile="$1"
- tempfile="temp/$_GET[\"edit\"].vcf"
- [ -x "$tempfile" ] && cardfile="$tempfile"
+edit_attendee() { #Parameter: Cardfile
+ id="$1"
+ cardfile="vcard/$id"
unset key
+
+ declare -A tags
+ declare -A values
vcf_parse "$cardfile" |while read -r line; do
declare -A tag
case "$line" in
@@ -30,12 +96,21 @@ edit_attendee() {
if [ -z "$key" ]; then
eval "$line"
else
- edit_card_item
+ values[$key]="$value"
+ for t in ${(k)tag}; do
+ tags[${key}_$t]="$tag[$t]"
+ done
eval "$line"
- unset value
- unset tag
+ if [ -n "$values[$key]" ]; then
+ n=0
+ while [ -n "$values[$key$n]" ]; do n=$(($n + 1)); done
+ key=$key$n
+ fi
+ unset value
+ unset tag
fi
;;
esac
done
+ edit_card
}