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

fix(campus): fix corner case with study features

Browse Source 
results in uglier features (more unnecessary inactive features)
This commit is contained in:
Gregor Kleen 2020-04-27 16:37:39 +02:00
parent 0e68b6cf53
commit 76098cc3c8
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Foundation.hs
View File

@ -4716,18 +4716,11 @@ upsertCampusUser plugin ldapData = do
oldFs <- selectKeysList oldFs <- selectKeysList
([ StudyFeaturesUser ==. studyFeaturesUser ([ StudyFeaturesUser ==. studyFeaturesUser
, StudyFeaturesDegree ==. studyFeaturesDegree , StudyFeaturesDegree ==. studyFeaturesDegree
, StudyFeaturesField ==. studyFeaturesField
, StudyFeaturesType ==. studyFeaturesType , StudyFeaturesType ==. studyFeaturesType
, StudyFeaturesSemester ==. studyFeaturesSemester , StudyFeaturesSemester ==. studyFeaturesSemester
] ++ ])
[ StudyFeaturesField ==. studyFeaturesField []
, StudyFeaturesSuperField ==. studyFeaturesSuperField
] ||. case studyFeaturesSuperField of
Just sField ->
[ StudyFeaturesField ==. sField
, StudyFeaturesSuperField ==. Nothing
]
Nothing -> []
) []
case oldFs of case oldFs of
[oldF] -> update oldF [oldF] -> update oldF
[ StudyFeaturesUpdated =. now [ StudyFeaturesUpdated =. now