+teltype() {
+ cat <<-EOF
+ <select class="item phonetype" name="phonetype">
+ <option value="" disabled="disabled" $([ -z "$1" ] && setselected )>$(l10n phone_typeselect)</option>
+ <option value=""></option>
+ <option value="HOME" $([ "$1" = HOME ] && setselected)>$(l10n phone_home)</option>
+ <option value="CELL" $([ "$1" = CELL ] && setselected)>$(l10n phone_cell)</option>
+ <option value="WORK" $([ "$1" = WORK ] && setselected)>$(l10n phone_work)</option>
+ <option value="FAX" $([ "$1" = FAX ] && setselected)>$(l10n phone_fax )</option>
+ </select>
+ EOF
+}
+
+n_last="$(printf %s "$values[N]" |sed -rn 's:^([^;]*;){0} *([^;]*).*$:\2:p')"
+n_first="$(printf %s "$values[N]" |sed -rn 's:^([^;]*;){1} *([^;]*).*$:\2:p')"
+n_middle="$(printf %s "$values[N]" |sed -rn 's:^([^;]*;){2} *([^;]*).*$:\2:p')"
+n_pre="$(printf %s "$values[N]" |sed -rn 's:^([^;]*;){3} *([^;]*).*$:\2:p')"
+n_post="$(printf %s "$values[N]" |sed -rn 's:^([^;]*;){4} *([^;]*)*$:\2:p')"