fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

StudyFields start

Browse Source
This commit is contained in:
SJost 2019-02-27 13:11:40 +01:00
parent 835ca73c2f
commit c48e1e1981
3 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
models/courses
View File

@ -38,6 +38,7 @@ CourseParticipant
course CourseId course CourseId
user UserId user UserId
registration UTCTime registration UTCTime
field StudyFeaturesId Maybe
UniqueParticipant user course UniqueParticipant user course
CourseUserNote CourseUserNote
course CourseId course CourseId

1
models/users
View File

@ -30,6 +30,7 @@ StudyFeatures
field StudyTermsId field StudyTermsId
type StudyFieldType type StudyFieldType
semester Int semester Int
updated UTCTime default=now -- zuletzt als gültig gesehen
-- UniqueUserSubject user degree field -- There exists a counterexample -- UniqueUserSubject user degree field -- There exists a counterexample
StudyDegree StudyDegree
key Int key Int

3
src/Foundation.hs
View File

@ -2018,7 +2018,8 @@ instance YesodAuth UniWorX where
return str return str
fs <- either (\err -> throwError . ServerError $ "Could not parse features of study: " <> err) return userStudyFeatures fs <- either (\err -> throwError . ServerError $ "Could not parse features of study: " <> err) return userStudyFeatures
-- TODO: just update StudyFeaturesUpdate in case of no-change
-- TODO: keep old is referenced in CourseParticipant
lift $ deleteWhere [StudyFeaturesUser ==. userId] lift $ deleteWhere [StudyFeaturesUser ==. userId]
forM_ fs $ \StudyFeatures{..} -> do forM_ fs $ \StudyFeatures{..} -> do