diff --git a/src/Handler/Course/Application/List.hs b/src/Handler/Course/Application/List.hs
index bd33a3b88..a3faa9a89 100644
--- a/src/Handler/Course/Application/List.hs
+++ b/src/Handler/Course/Application/List.hs
@@ -367,18 +367,27 @@ postCApplicationsR tid ssh csh = do
             CourseApplicationsTableCsvSetCommentData{} -> CourseApplicationsTableCsvSetComment
         , dbtCsvCoarsenActionClass = const DBCsvActionExisting
         , dbtCsvExecuteActions = do
+            now <- liftIO getCurrentTime
             C.mapM_ $ \case
               CourseApplicationsTableCsvSetFieldData{..} -> do
-                CourseApplication{..} <- updateGet caCsvActApplication [ CourseApplicationField =. caCsvActField ]
+                CourseApplication{..} <- updateGet caCsvActApplication [ CourseApplicationField =. caCsvActField
+                                                                       , CourseApplicationTime =. now
+                                                                       ]
                 audit $ TransactionCourseApplicationEdit cid courseApplicationUser caCsvActApplication
               CourseApplicationsTableCsvSetVetoData{..} -> do
-                CourseApplication{..} <- updateGet caCsvActApplication [ CourseApplicationRatingVeto =. caCsvActVeto ]
+                CourseApplication{..} <- updateGet caCsvActApplication [ CourseApplicationRatingVeto =. caCsvActVeto
+                                                                       , CourseApplicationRatingTime =. Just now
+                                                                       ]
                 audit $ TransactionCourseApplicationEdit cid courseApplicationUser caCsvActApplication
               CourseApplicationsTableCsvSetRatingData{..} -> do
-                CourseApplication{..} <- updateGet caCsvActApplication [ CourseApplicationRatingPoints =. caCsvActRating ]
+                CourseApplication{..} <- updateGet caCsvActApplication [ CourseApplicationRatingPoints =. caCsvActRating
+                                                                       , CourseApplicationRatingTime =. Just now
+                                                                       ]
                 audit $ TransactionCourseApplicationEdit cid courseApplicationUser caCsvActApplication
               CourseApplicationsTableCsvSetCommentData{..} -> do
-                CourseApplication{..} <- updateGet caCsvActApplication [ CourseApplicationRatingComment =. caCsvActComment ]
+                CourseApplication{..} <- updateGet caCsvActApplication [ CourseApplicationRatingComment =. caCsvActComment
+                                                                       , CourseApplicationRatingTime =. Just now
+                                                                       ]
                 audit $ TransactionCourseApplicationEdit cid courseApplicationUser caCsvActApplication
             return $ CourseR tid ssh csh CApplicationsR
         , dbtCsvRenderKey = \(existingApplicantName -> existingApplicantName') -> \case