diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/recurrence/internal.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm index ec8c10d4..aab65959 100644 --- a/module/vcomponent/recurrence/internal.scm +++ b/module/vcomponent/recurrence/internal.scm @@ -125,8 +125,14 @@ (define-public (recur-rule->rrule-sxml rrule) (map-fields (lambda (field value) - `(,(downcase-symbol field) - ,(field->string field value))) + (if (string-ci=? "UNTIL" (symbol->string field)) + `(until + ,(if (date? value) + (date->string value "~Y-~m-~d") + (datetime->string + value "~Y-~m-~dT~H:~M:~S~Z"))) + `(,(downcase-symbol field) + ,(field->string field value)))) rrule)) |