diff --git a/src/Foundation.hs b/src/Foundation.hs index 7aee3ddff..73a223407 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -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