diff --git a/src/Sis/Page/Dashboard.hs b/src/Sis/Page/Dashboard.hs
index 1ad3d79..95c6f46 100644
--- a/src/Sis/Page/Dashboard.hs
+++ b/src/Sis/Page/Dashboard.hs
@@ -49,9 +49,13 @@ instance (DB :> es, IOE :> es) => HyperView DashboardPage es where
                     (h : _) -> do
                         dash <- getDashboard (unHouseholdId (householdId h)) today
                         pure $ hyper DashboardPage $ pageLayout us $ dashboardView dash
-    update (CheckOff _oid) = do
-        -- TODO: wire up to activity form
-        update RefreshDashboard
+    update (CheckOff oid) = do
+        mUser <- lookupSession @UserSession
+        case mUser of
+            Nothing -> pure (el "Not authenticated")
+            Just us -> do
+                _ <- recordActivity (unOccurrenceId oid) (UserId (usUserId us)) ActivityCompleted Nothing False
+                update RefreshDashboard
 
 dashboardView :: Dashboard -> View DashboardPage ()
 dashboardView dash = do