diff options
| -rw-r--r-- | module/calp/html/view/calendar.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index c32703f2..031c1844 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -250,7 +250,14 @@ (lambda (calendar) `(li (@ (class "CAL_" ,(html-attr (prop calendar 'NAME)))) - ,(prop calendar 'NAME))) + (a (@ (href "/search?" + ,((@ (web uri-query) encode-query-parameters) + `((q . (and (date/-time<=? + ,(current-datetime) + (prop event 'DTSTART)) + (string=? ,(->string (prop calendar 'NAME)) + (or (prop (parent event) 'NAME) "")))))))) + ,(prop calendar 'NAME)))) calendars)) (div (@ (id "calendar-dropdown-template") (class "template")) (select |