From 54a1ea612d30d710bbd4911cc12e5cc7c6766b0f Mon Sep 17 00:00:00 2001 From: SJost Date: Wed, 16 Jan 2019 10:46:02 +0100 Subject: [PATCH] CourseList standardized --- src/Handler/Course.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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