diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-16 22:23:13 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-16 23:28:34 +0200 |
| commit | a22e8c4d85c5b0258545771f34c197f8dc1ad2f4 (patch) | |
| tree | ab791368db1af9f6623005121fb09452a4f5c69d /module/vcomponent/util/instance/methods.scm | |
| parent | Fix errors when submitting events. (diff) | |
| download | calp-a22e8c4d85c5b0258545771f34c197f8dc1ad2f4.tar.gz calp-a22e8c4d85c5b0258545771f34c197f8dc1ad2f4.tar.xz | |
Validate that submitted event doesn't have invalid interval.
Diffstat (limited to 'module/vcomponent/util/instance/methods.scm')
| -rw-r--r-- | module/vcomponent/util/instance/methods.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/module/vcomponent/util/instance/methods.scm b/module/vcomponent/util/instance/methods.scm index 28b664c6..f1c6ecf0 100644 --- a/module/vcomponent/util/instance/methods.scm +++ b/module/vcomponent/util/instance/methods.scm @@ -174,6 +174,9 @@ (define-method (add-and-save-event (this <events>) calendar event) + + ((@ (vcomponent validate) validate-event) event) + (cond [(get-event-by-uid this (prop event 'UID)) => (lambda (old-event) |