fraport/fradrive
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
([ StudyFeaturesUser ==. studyFeaturesUser
, StudyFeaturesDegree ==. studyFeaturesDegree
, StudyFeaturesField ==. studyFeaturesField
, StudyFeaturesType ==. studyFeaturesType
, StudyFeaturesSemester ==. studyFeaturesSemester
] ++
[ StudyFeaturesField ==. studyFeaturesField
, StudyFeaturesSuperField ==. studyFeaturesSuperField
] ||. case studyFeaturesSuperField of
Just sField ->
[ StudyFeaturesField ==. sField
, StudyFeaturesSuperField ==. Nothing
]
Nothing -> []
) []
])
[]
case oldFs of
[oldF] -> update oldF
[ StudyFeaturesUpdated =. now