- N)N="$(pdi_value "$card" N)"
- if [ "$N" ]; then
- IFS=\; read n1 n2 n3 n4 n5 <<-EOF
- $N
- EOF
- else
- N="$(pdi_value "$card" FN |unescape)"
- n1="${N%%[a-z]*}" n1="${N#$n1}"
- [ "$n1" ] || n1="${N##* }"
- n2="${N%$n1}"
- fi
- printf '
- [h3 %s]
- [input .item .N name="4N" placeholder="%s" value="%s"]
- [input .item .N name="2N" placeholder="%s" value="%s"]
- [input .item .N name="1N" placeholder="%s" value="%s"]
- [input .item .N name="5N" placeholder="%s" value="%s"]
- ' "$(l10n "$item")" \
- "$(l10n n_pre)" "$(HTML "$n4")" \
- "$(l10n n_first)" "$(HTML "$n2" "$n3")" \
- "$(l10n n_last)" "$(HTML "$n1")" \
- "$(l10n n_post)" "$(HTML "$n5")"
- ;;
- GENDER)
- gender="$(pdi_value "$card" GENDER)"
- printf '
- [select .item .GENDER name="GENDER"
- [option value="" disabled="disabled" %s %s]
- [option value="female" %s %s]
- [option value="male" %s %s]
- [option value="other" %s %s]
- [option value="none" %s %s]
- ]\n' \
- "$([ "$gender" = '' ] && printf 'selected="selected"')" "$(l10n GENDER)" \
- "$([ "$gender" = 'female' ] && printf 'selected="selected"')" "$(l10n gender_female)" \
- "$([ "$gender" = 'male' ] && printf 'selected="selected"')" "$(l10n gender_male)" \
- "$([ "$gender" = 'other' ] && printf 'selected="selected"')" "$(l10n gender_other)" \
- "$([ "$gender" = 'none' ] && printf 'selected="selected"')" "$(l10n gender_none)"
+ DTSTART)
+ dtstart="$(pdi_value "$course" DTSTART |cal_date)"
+ ystart="${dtstart%%-*}"; ystart="${ystart##* }"
+ mstart="${dtstart#*-}"; mstart="${mstart%%-*}"
+ dstart="${dtstart##*-}"; dstart="${dstart%% *}"
+ hhstart="${dtstart##* }"; hhstart="${hhstart%%:*}"
+ mmstart="${dtstart##*:}";
+
+ printf '[div .section .DTSTART][h3 %s]' "$(l10n DTSTART)"
+ printf '[select .DTSYEAR name="DTSYEAR" onchange="this.form.submit();"'
+ seq $((ystart - 50)) $((ystart + 50)) |while read y; do
+ printf '[option value="%i" %s %i]' $y "$([ $y -eq $ystart ] && printf selected)" $y
+ done
+ printf ']'
+ printf '[select .DTSMONTH name="DTSMONTH" onchange="this.form.submit();"'
+ seq 1 12 |while read m; do
+ printf '[option value="%i" %s %s]' $m "$([ $m -eq $mstart ] && printf selected)" "$(date -d "2000-${m}-01" +%B)"
+ done
+ printf '][submit "DTS" "update" .DTS %s]' "$(l10n edit_dtscal)"
+ printf 'mon tue wed thu fri sat sun' |xargs -n1 date -d '{}' +"[span .DTSCALHEAD %a]"
+ seq 2 "$(date -d ${ystart}-${mstart}-1 +%u)" |xargs -n1 printf '[span .DTSCAL]'
+ cnt=$(date -d ${dts_year}-${dts_month}-1 +%s)
+ dn=1; while [ "$(date ${ystart}-${mstart}-${dn} +%m)" -eq "$mstart" ]; do
+ printf '[input .DTSCAL type="radio" name="DTSDAY" #DTSCAL_%i value="%i" %s][label .DTSCAL for="DTSCAL_%i" %i]' \
+ $dn $n "$([ $dn -eq "$dstart" ] && printf checked)" $dn $dn
+ dn=$((dn + 1))
+ done 2>/dev/null
+ printf '[span .DTSTIME %s:][select .DTSTIME name="DTSHOUR"' "$(l10n time)"
+ seq 0 23 |while read h; do
+ printf '[option value="%i" %s %i]' $h "$([ $h -eq $hhstart ] && printf checked)" $h
+ done
+ printf ']:[select .DTSTIME name="DTSMINUTE"'
+ seq 0 5 55 |while read m; do
+ printf '[option value="%i" %s %i]' $m "$([ $m -eq $mmstart ] && printf checked)" $m
+ done
+ printf ']'