From c2c6974a7700e4d9bad92c4477f64ad2b1eed5a2 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Tue, 27 Aug 2019 10:09:58 +0200
Subject: [PATCH] fix(course-applications-csv): record rating time

---
 src/Handler/Course/Application/List.hs | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

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