diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index 22cf1bf77..a58bbb03b 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -189,10 +189,11 @@ getCourseListR = do muid <- maybeAuthId let colonnade = widgetColonnade $ mconcat [ colCourseDescr - , colCShort + , colSchoolShort , colTerm + , colCShort , maybe mempty (const colRegistered) muid - , colSchool + ] whereClause = const $ E.val True validator = def