From e23ab0b5d8afd6a6cf715451b8b1af24fc4e83f9 Mon Sep 17 00:00:00 2001
From: Oliver Braun <ob@cs.hm.edu>
Date: Tue, 5 Dec 2017 18:40:41 +0100
Subject: [PATCH] more gui work and some work for #32

---
 elexams/elexams.css                           | 62 ++++++++++++++++--
 elexams/elexams.js                            | 59 +++++++++++++++--
 elexams/index.html                            | 12 +++-
 elexams/renderer.js                           | 65 ++++++++++++++++---
 plexams-core/src/Plexams/Export/Common.hs     |  9 ++-
 plexams-core/src/Plexams/PlanManip.hs         | 35 ++++++++--
 plexams-core/src/Plexams/Types/Exam.hs        |  5 +-
 plexams-core/src/Plexams/Validation.hs        |  6 +-
 plexams-core/src/Plexams/Validation/Rooms.hs  |  2 +-
 .../src/Plexams/Validation/ScheduledExams.hs  |  4 +-
 plexams-server/src/Plexams/Server/Server.hs   | 57 +++++++++++++++-
 11 files changed, 280 insertions(+), 36 deletions(-)

diff --git a/elexams/elexams.css b/elexams/elexams.css
index 8dc4258..48c220d 100644
--- a/elexams/elexams.css
+++ b/elexams/elexams.css
@@ -12,18 +12,33 @@ th {
 }
 
 td.exams {
-  height: 40px;
+  height: 50px;
 }
 
 td.times {
   width: 20px;
 }
 
-.hardconstraints {
+.HardConstraintBroken {
   font-weight: bold;
   color: red;
 }
 
+.SoftConstraintBroken {
+  font-weight: bold;
+  color: blue;
+}
+
+.Info {
+  font-weight: bold;
+  color: grey;
+}
+
+.lecturer {
+  font-weight: bold;
+  color: blue;
+}
+
 div#description {
   padding: 4px;
   user-select: text;
@@ -51,13 +66,21 @@ div#description {
 }
 
 div.inner {
-  padding: 2px;
-  top: 0px;
+  padding: 5px;
+  top: 5px;
   overflow: hidden;
+  border: 1px solid white;
+  background-color: rgb(255, 255, 204);
   vertical-align: top;
   display: block;
 }
 
+div.examsBySameLecturer {
+  font-weight: bold;
+  color: blue;
+  border: 2px solid blue;
+}
+
 div.overlap {
   padding: 2px;
   top: 0px;
@@ -67,6 +90,25 @@ div.overlap {
   background-color: rgb(237, 236, 107);
 }
 
+div.conflicts {
+  padding: 2px;
+  top: 0px;
+  overflow: hidden;
+  vertical-align: top;
+  display: block;
+  font-weight: bold;
+  background-color: rgb(200, 0, 0);
+}
+
+div.notPlannedByMe {
+  padding: 2px;
+  top: 0px;
+  overflow: hidden;
+  vertical-align: top;
+  display: block;
+  background-color: rgb(179, 179, 204);
+}
+
 div.innerUnscheduled {
   padding: 2px;
   top: 0px;
@@ -99,7 +141,7 @@ div.inner:hover {
 }
 
 div.div_select {
-  background-color: rgb(212, 81, 81) !important;
+  background-color: rgb(0, 200, 0) !important;
 }
 
 
@@ -118,6 +160,16 @@ div.description {
   min-width: 400px;
 }
 
+ul#conflictingAncodes,
+li#conflictingAncodes {
+  padding-left: 1.4em;
+}
+
+ul#registeredGroups,
+li#registeredGroups {
+  padding-left: 1.4em;
+}
+
 ul#groups,
 li#groups {
   padding-left: 1.4em;
diff --git a/elexams/elexams.js b/elexams/elexams.js
index 4202d0c..4301854 100644
--- a/elexams/elexams.js
+++ b/elexams/elexams.js
@@ -29,23 +29,34 @@ function viewDetails (event, anCode) {
         }
       }
       let groupsOutput = groupsToHTML(exam.groups)
+      let registeredGroupsOutput = registeredGroupsToHTML(exam.registeredGroups)
       output += ` <h2 >${exam.name}</h1></br>
                   AnCode: ${exam.anCode}</br>
                   Rooms: </br>
                   Groups: ${groupsOutput}
+                  Registered Groups: ${registeredGroupsOutput}
                   PlannedByMe: ${exam.plannedByMe}</br>
                   StudentsWithHandicaps: </br>
-                  Lecturer: ${exam.lecturer.personShortName}</br>
+                  Lecturer: <span class="lecturer">${exam.lecturer.personShortName}</span></br>
                   PersonFK: ${exam.lecturer.personFK}</br>
-                  PersonIsLBA: ${exam.lecturer.personIsLBA}</br>
+                  PersonIsLBA: <span class="lecturer">${exam.lecturer.personIsLBA}</span></br>
                   PersonID: ${exam.lecturer.personID}</br>
                   PersonEmail: ${exam.lecturer.personEmail}</br>
                   Duration: ${exam.duration}</br>
                   ReExam: ${exam.reExam} </br>
                   ExamType: ${exam.examType} </br>
-                  Overlaps: <div id='overlaps'></div>`
+                  Conflicting Ancodes:
+                  <ul id='conflictingAncodes'>`
+      for (let  i = 0; i < exam.conflictingAncodes.length; i++) {
+        let conflictingAncode = exam.conflictingAncodes[i]
+        output += `<li>${conflictingAncode}</li>`
+      }
+      output += `<ul>`
+      output += `<br>Overlaps: <div id='overlaps'></div>`
       $('#description').html(output)
       fetchOverlaps(anCode)
+      setConflicts(anCode, exam.conflictingAncodes)
+      fetchExamsBySameLecturer(anCode)
     }).fail(function (jqXHR, textStatus, errorThrown) {
       $('#error').append(`Error on viewDetails: `)
       $('#error').append(jqXHR.responseText)
@@ -62,10 +73,14 @@ function toggleSelect (thisObj) {
     thisObj.parents('table').find('div').removeClass('div_select')
     thisObj.parents('div').find('div').removeClass('div_select')
     thisObj.parents('div').find('div').removeClass('overlap')
+    thisObj.parents('div').find('div').removeClass('conflicts')
+    thisObj.parents('div').find('div').removeClass('examsBySameLecturer')
   } else {
     thisObj.parents('table').find('div').removeClass('div_select')
     thisObj.parents('div').find('div').removeClass('div_select')
     thisObj.parents('div').find('div').removeClass('overlap')
+    thisObj.parents('div').find('div').removeClass('conflicts')
+    thisObj.parents('div').find('div').removeClass('examsBySameLecturer')
     thisObj.addClass('div_select')
   }
 }
@@ -101,6 +116,22 @@ function fetchOverlaps (anCode) {
   })
 }
 
+function fetchExamsBySameLecturer (anCode) {
+  var request = $.ajax({
+    type: 'POST',
+    url: host + endpointExamsBySameLecturer,
+    data: JSON.stringify(anCode),
+    contentType: 'application/json',
+    dataType: 'json'
+  })
+  request.done(function (otherExams) {
+    for (let i in otherExams) {
+      let otherExam = otherExams[i]
+      $('#'.concat(otherExam.anCode)).addClass('examsBySameLecturer')
+    }
+  })
+}
+
 function selectOverlapExams (overlaps, anCode) {
   for (var i = 0; i < overlaps.length; i++) {
     let group = overlaps[i]
@@ -111,12 +142,31 @@ function selectOverlapExams (overlaps, anCode) {
   }
 }
 
+function setConflicts (anCode, conflictingAncodes) {
+  for (var i in conflictingAncodes) {
+    let conflictingAncode = conflictingAncodes[i]
+    $('#'.concat(conflictingAncode)).addClass('conflicts')
+  }
+}
+
+function registeredGroupsToHTML (groups) {
+  let output = `<ul id='registeredGroups'>`
+  for (var i in groups) {
+    let group = groups[i]
+    output += `<li id='group'>
+      ${group.registeredGroupDegree} (${group.registeredGroupStudents})
+      </li>`
+  }
+  output += `</ul>`
+  return output
+}
+
 function groupsToHTML (groups) {
   let output = `
   <ul id='groups'>
   `
   for (var i in groups) {
-    let group = groups[i];
+    let group = groups[i]
     let groupDegree = group.groupDegree != null ? group.groupDegree + ` ` : ``
     let groupSemester = group.groupSemester != null ? group.groupSemester + ` ` : ``
     let groupSubgroup = group.groupSubgroup != null ? group.groupSubgroup + ` ` : ``
@@ -173,6 +223,7 @@ function dropExam (ev) {
     } else if (ev.currentTarget.className === 'outerUnscheduled') {
       document.getElementById(data).className = 'innerUnscheduled'
     }
+    _fetchValidation()
   }
 }
 
diff --git a/elexams/index.html b/elexams/index.html
index e36869d..033c27a 100644
--- a/elexams/index.html
+++ b/elexams/index.html
@@ -17,8 +17,8 @@
     window.$ = window.jQuery = nodeRequire('./resources/jquery-3.2.1.min.js')
   </script>
   <script src="resources/jquery.tablesorter.min.js"></script>
-  <script src="elexams.js"></script>
   <script src="renderer.js"></script>
+  <script src="elexams.js"></script>
 
 </head>
 
@@ -45,8 +45,16 @@
 
     <li class="tab">
       <input type="radio" name="tabs" id="tab2" />
-      <label for="tab2">Prüfungsliste</label>
+      <label for="tab2">Validation</label>
       <div id="tab-content2" class="content">
+        <div id="validation-full"></div>
+      </div>
+    </li>
+
+    <li class="tab">
+      <input type="radio" name="tabs" id="tab3" />
+      <label for="tab3">Prüfungsliste</label>
+      <div id="tab-content3" class="content">
         <div id="plexams-api"></div>
       </div>
     </li>
diff --git a/elexams/renderer.js b/elexams/renderer.js
index 5891984..d3bace0 100644
--- a/elexams/renderer.js
+++ b/elexams/renderer.js
@@ -7,7 +7,9 @@ const endpointSlotsPerDay = '/slotsPerDay'
 const endpointAddExam = '/addExam'
 const endpointOverlaps = '/overlaps'
 const endpointUnscheduledExams = '/unscheduledExams'
+const endpointNotPlannedByMeExams = '/notPlannedByMeExams'
 const endpointValidation = '/validation'
+const endpointExamsBySameLecturer = '/examsBySameLecturer'
 
 let _fetchValidation = () => {
   $.getJSON(host + endpointValidation, (validation) => {
@@ -15,11 +17,24 @@ let _fetchValidation = () => {
     for (let i in validation.brokenConstraints) {
       let constraint = validation.brokenConstraints[i]
       if (constraint.tag === 'HardConstraintBroken') {
-        output += `<li><span class="hardconstraints"> ${constraint.contents}</span></li>`
+        output += `<li><span class="${constraint.tag}">
+                    ${constraint.contents}</span>
+                  </li>`
       }
     }
     output += `</ul>`
     $('#validation').html(output)
+
+    output = `<h1>${validation.result}</h1><ul>`
+    for (let i in validation.brokenConstraints) {
+      let constraint = validation.brokenConstraints[i]
+      output += `<li><span class="${constraint.tag}">
+                  ${constraint.contents}</span>
+                </li>`
+    }
+    output += `</ul>`
+    $('#validation-full').html(output)
+
   })
 }
 
@@ -68,24 +83,43 @@ let _fetchExams = function () {
 let _fetchUnscheduledExams = function () {
   $.getJSON(host + endpointUnscheduledExams, function (uExams) {
     let outputPlannedByMe = ``
-    let outputNotPlannedByMe = ``
     for (var i in uExams) {
       var exam = uExams[i]
       var draggable = false
+      outputPlannedByMe +=
+        `<div id="${exam.anCode}" `
       if (exam.plannedByMe) {
-        outputPlannedByMe +=
-        `<div id="${exam.anCode}" class="innerUnscheduled" ondrop="return false;"
-          draggable="true" ondragstart="dragExam(event)"
+        outputPlannedByMe += `class="innerUnscheduled" draggable="true"`
+      } else {
+        outputPlannedByMe += `class="innerUnscheduled notPlannedByMe" draggable="false"`
+      }
+      outputPlannedByMe += ` ondrop="return false;" ondragstart="dragExam(event)"
           onclick="viewDetails(event, ${exam.anCode})"
          >${exam.anCode}</br>${exam.name}</div>`
-      } else {
-        outputNotPlannedByMe +=
+    }
+    $('#unscheduled').html(outputPlannedByMe)
+  }).fail(function (jqXHR, textStatus, errorThrown) {
+    $('#error').append(`Error on endpoint \\unscheduledExams: `)
+    $('#error').append(jqXHR.responseText)
+    $('#error').append(`<br>`)
+    $('#error').css({
+      'border': '3px solid #e22d2d'
+    })
+  })
+}
+
+let _fetchNotPlannedByMeExams = function () {
+  $.getJSON(host + endpointNotPlannedByMeExams, function (uExams) {
+    let outputNotPlannedByMe = ``
+    for (var i in uExams) {
+      var exam = uExams[i]
+      var draggable = false
+
+      outputNotPlannedByMe +=
         `<div id="${exam.anCode}" class="innerUnNotPbyMe" ondrop="return false;"
           draggable="false" onclick="viewDetails(event, ${exam.anCode})"
           >${exam.anCode}</br>${exam.name}</div>`
-      }
     }
-    $('#unscheduled').html(outputPlannedByMe)
     $('#notPlannedByMe').html(outputNotPlannedByMe)
   }).fail(function (jqXHR, textStatus, errorThrown) {
     $('#error').append(`Error on endpoint \\unscheduledExams: `)
@@ -216,6 +250,17 @@ let _fetchExamDays = function () {
     })
 }
 
+function setNotPlannedByMe () {
+  $.getJSON(host + endpointNotPlannedByMeExams, function (exams) {
+    for (var i in exams) {
+      let ancode = exams[i].anCode
+      $('#'.concat(ancode)).addClass('notPlannedByMe')
+    }
+  })
+}
+
+setNotPlannedByMe()
+
 // Convenience function for _fetchExams
 let fetchExams = function () {
   _fetchExams()
@@ -240,4 +285,6 @@ fetchExamDays()
 // Start to fetch the unscheduled exams
 fetchUnscheduledExams()
 
+_fetchNotPlannedByMeExams()
+
 _fetchValidation()
diff --git a/plexams-core/src/Plexams/Export/Common.hs b/plexams-core/src/Plexams/Export/Common.hs
index 4c99367..8dab55d 100644
--- a/plexams-core/src/Plexams/Export/Common.hs
+++ b/plexams-core/src/Plexams/Export/Common.hs
@@ -1,5 +1,6 @@
 module Plexams.Export.Common
   ( unscheduledExamsSortedByRegistrations
+  , notPlannedByMeExams
   ) where
 
 import           Data.List     (sortBy)
@@ -9,7 +10,13 @@ import           Plexams.Types
 unscheduledExamsSortedByRegistrations :: Plan -> [Exam]
 unscheduledExamsSortedByRegistrations =
                 sortBy (\e1 e2 -> compare (registrations e2)
-                                           (registrations e1))
+                                          (registrations e1))
                 . filter plannedByMe
                 . M.elems
                 . unscheduledExams
+
+notPlannedByMeExams :: Plan -> [Exam]
+notPlannedByMeExams =
+                filter (not . plannedByMe)
+                . M.elems
+                . unscheduledExams
diff --git a/plexams-core/src/Plexams/PlanManip.hs b/plexams-core/src/Plexams/PlanManip.hs
index 2a81604..55c0379 100644
--- a/plexams-core/src/Plexams/PlanManip.hs
+++ b/plexams-core/src/Plexams/PlanManip.hs
@@ -5,6 +5,7 @@ module Plexams.PlanManip
     , makePlan
     , addRegistrationsListToExams
     , addStudentRegistrationsToExams
+    , addStudentRegistrationsToPlan
     , applyAddRoomToExamListToPlan
     , addConstraints
     , updateExamByAncodeWith
@@ -276,15 +277,39 @@ addRegistrationsToExam registrations' exam =
 -- Add students registrations
 --------------------------------------------------------------------------------
 
+addStudentRegistrationsToPlan :: StudentsWithRegs -> Plan -> Plan
+addStudentRegistrationsToPlan studentsWithRegs plan = plan
+  { slots = slots'
+  , unscheduledExams = unscheduledExams'
+  }
+  where
+    unscheduledExams' = addStudentRegistrationsToExamsMap studentsWithRegs
+                        $ unscheduledExams plan
+    slots' = M.map
+             (\s -> s { examsInSlot = addStudentRegistrationsToExamsMap
+                                      studentsWithRegs $ examsInSlot s
+                      }
+             ) $ slots plan
+
 addStudentRegistrationsToExams :: StudentsWithRegs -> [Exam] -> [Exam]
-addStudentRegistrationsToExams studentsWithRegs exams' =
-  map (\e -> e { conflictingAncodes = filter (`elem` M.keys examsMap)
-                  $ sort $ nub $ conflictingAncodes e
+addStudentRegistrationsToExams studentsWithRegs =
+  M.elems
+  . addStudentRegistrationsToExamsMap studentsWithRegs
+  . M.fromList
+  . map (\e -> (anCode e, e))
+
+addStudentRegistrationsToExamsMap :: StudentsWithRegs
+                                  -> M.Map Ancode Exam
+                                  -> M.Map Ancode Exam
+addStudentRegistrationsToExamsMap studentsWithRegs examsMap =
+  M.map (\e -> e { conflictingAncodes =
+                    filter (`elem` M.keys examsMap \\ [anCode e])
+                    $ sort $ nub $conflictingAncodes e
+
                , registeredGroups = sumRegisteredGroups $ registeredGroups e
                })
-    $ M.elems $ foldr insertStudentReg examsMap $ M.elems studentsWithRegs
+  $ foldr insertStudentReg examsMap $ M.elems studentsWithRegs
   where
-    examsMap = M.fromList $ map (\e -> (anCode e, e)) exams'
     sumRegisteredGroups regGroups =
       map (\ (RegisteredGroup gName i : gs) ->
               RegisteredGroup gName (i + sum (map registeredGroupStudents gs)))
diff --git a/plexams-core/src/Plexams/Types/Exam.hs b/plexams-core/src/Plexams/Types/Exam.hs
index 03ec3f5..a2aac7c 100644
--- a/plexams-core/src/Plexams/Types/Exam.hs
+++ b/plexams-core/src/Plexams/Types/Exam.hs
@@ -12,7 +12,7 @@ module Plexams.Types.Exam
 
 import           Data.Aeson
 import           Data.List             (intercalate)
-import           Data.Maybe            (isJust, mapMaybe)
+import           Data.Maybe            (isJust)
 import           Data.Text             (unpack)
 import           GHC.Generics
 import           Plexams.Types.Common
@@ -52,7 +52,8 @@ withHandicaps :: Exam -> Bool
 withHandicaps = not . null . studentsWithHandicaps
 
 registrations :: Exam -> Integer
-registrations = sum . mapMaybe groupRegistrations . groups
+registrations = -- sum . mapMaybe groupRegistrations . groups
+                fromIntegral . length . registeredStudents
 
 notPlannedByMe :: [Ancode] -> Exam -> Exam
 notPlannedByMe ancodes exam =
diff --git a/plexams-core/src/Plexams/Validation.hs b/plexams-core/src/Plexams/Validation.hs
index 89adb71..4413987 100644
--- a/plexams-core/src/Plexams/Validation.hs
+++ b/plexams-core/src/Plexams/Validation.hs
@@ -6,7 +6,7 @@ module Plexams.Validation
 
 import           Control.Monad.Writer
 import           Data.List                         (nub)
-import           Data.Text                         (Text, append)
+import           Data.Text                         (append)
 import           Plexams.Query
 import           Plexams.Types
 import           Plexams.Validation.Exports
@@ -58,10 +58,10 @@ validateLecturersMax3ExamDays plan = do
   let lecturerWithMoreThan3ExamDays =
           filter ((>3) . length . nub . snd) $ lecturerExamDays plan
       ok = null lecturerWithMoreThan3ExamDays
-  tell [Info "# Checking amount of exam days for each lecturer (soft)"]
+  tell [Info "# Checking amount of exam days for each lecturer (hard)"]
   unless ok $
     mapM_ (\(l,d) ->
-              tell [Info $ "- More than 3 days of exams: "
+              tell [HardConstraintBroken $ "- More than 3 days of exams: "
                     `append` showt (personShortName l)
                     `append` ": "
                     `append` showt d])
diff --git a/plexams-core/src/Plexams/Validation/Rooms.hs b/plexams-core/src/Plexams/Validation/Rooms.hs
index 580e301..4a293fe 100644
--- a/plexams-core/src/Plexams/Validation/Rooms.hs
+++ b/plexams-core/src/Plexams/Validation/Rooms.hs
@@ -6,7 +6,7 @@ module Plexams.Validation.Rooms
 import           Control.Monad.Writer
 import           Data.List            (nub)
 import qualified Data.Map             as M
-import           Data.Text            (Text, append)
+import           Data.Text            (append)
 import           Plexams.Types
 import           TextShow             (showt)
 
diff --git a/plexams-core/src/Plexams/Validation/ScheduledExams.hs b/plexams-core/src/Plexams/Validation/ScheduledExams.hs
index df8e69e..3c51388 100644
--- a/plexams-core/src/Plexams/Validation/ScheduledExams.hs
+++ b/plexams-core/src/Plexams/Validation/ScheduledExams.hs
@@ -41,7 +41,9 @@ validateGOSlots :: Plan -> Writer [ValidationRecord] ValidationResult
 validateGOSlots plan = do
   tell [Info "### Checking GO-Slots! (hard)"]
   let allowedSlots = goSlots $ semesterConfig plan
-      examsInOtherSlots = filter (elem GO . map groupDegree . groups)
+      examsInOtherSlots = filter (elem "GO"
+                                  . map registeredGroupDegree
+                                  . registeredGroups)
                         $ concatMap (M.elems . examsInSlot)
                         $ mapMaybe (`M.lookup` slots plan)
                         $ filter (not . (`elem` allowedSlots))
diff --git a/plexams-server/src/Plexams/Server/Server.hs b/plexams-server/src/Plexams/Server/Server.hs
index f096fa9..3d5a91a 100644
--- a/plexams-server/src/Plexams/Server/Server.hs
+++ b/plexams-server/src/Plexams/Server/Server.hs
@@ -9,12 +9,12 @@ module Plexams.Server.Server
 
 import           Control.Monad.Except
 import           Data.ByteString.Lazy.Char8
+import           Data.List                  (partition, sortBy)
 import qualified Data.Map                   as M
 import           Data.Maybe
 import           Data.Time.Calendar
 import           Network.Wai
 import           Network.Wai.Handler.Warp
-import           Plexams.Export.Common
 import           Plexams.PlanManip
 import           Plexams.Server.Check
 import           Plexams.Server.Import
@@ -23,6 +23,7 @@ import           Plexams.Types
 import           Plexams.Validation
 import           Servant
 
+
 type API = "exams" :> Get '[JSON] [Exam]
       :<|> "studentregs" :> Get '[JSON] [StudentWithRegs]
       :<|> "examDays" :> Get '[JSON] [Day]
@@ -30,8 +31,10 @@ type API = "exams" :> Get '[JSON] [Exam]
       :<|> "slotsPerDay" :> Get '[JSON] [String]
       :<|> "addExam" :> ReqBody '[JSON] AddExamToSlot :> Post '[JSON] CheckError
       :<|> "unscheduledExams" :> Get '[JSON] [Exam]
+      :<|> "notPlannedByMeExams" :> Get '[JSON] [Exam]
       :<|> "overlaps" :> ReqBody '[JSON] Ancode :> Post '[JSON] [Overlaps]
       :<|> "validation" :> Get '[JSON] Validation
+      :<|> "examsBySameLecturer" :> ReqBody '[JSON] Ancode :> Post '[JSON] [Exam]
 
 startApp :: IO ()
 startApp = run 8080 app
@@ -50,8 +53,10 @@ server = exams'
     :<|> slotsPerDay'
     :<|> addExam'
     :<|> unscheduledExams'
+    :<|> notPlannedByMeExams'
     :<|> overlaps'
     :<|> validation'
+    :<|> examsBySameLecturer'
 
       where
         exams' :: Handler [Exam]
@@ -89,10 +94,15 @@ server = exams'
         validation' :: Handler Validation
         validation' = do
           plan'' <- liftIO appliedPlan
+          regs' <- liftIO importRegistrations
+          studentregs' <- liftIO importStudentRegistrations
           case plan'' of
             Left errorMsg -> failingHandler $ pack errorMsg
             Right plan''' -> return $ uncurry Validation
-                                    $ validate [ValidateSchedule] plan'''
+                                    $ validate [ValidateSchedule]
+                                    $ addStudentRegistrationsToPlan
+                                      (fromMaybe M.empty studentregs')
+                                      plan'''
 
         slotsPerDay' :: Handler [String]
         slotsPerDay' = do
@@ -117,9 +127,36 @@ server = exams'
         unscheduledExams' :: Handler [Exam]
         unscheduledExams' = do
           plan'' <- liftIO appliedPlan
+          regs' <- liftIO importRegistrations
+          studentregs' <- liftIO importStudentRegistrations
+          case plan'' of
+            Left errorMsg -> failingHandler $pack errorMsg
+            -- Right plan''' -> return $ unscheduledExamsSortedByRegistrations plan'''
+            Right plan''' -> return
+                $ sortBy (\e1 e2 -> compare (registrations e2)
+                                            (registrations e1))
+                $ Prelude.filter isUnscheduled
+                $ addStudentRegistrationsToExams
+                    (fromMaybe M.empty studentregs')
+                $ addRegistrationsListToExams (allExams plan''')
+                $ fromMaybe [] regs'
+
+        notPlannedByMeExams' :: Handler [Exam]
+        notPlannedByMeExams' = do
+          plan'' <- liftIO appliedPlan
+          regs' <- liftIO importRegistrations
+          studentregs' <- liftIO importStudentRegistrations
           case plan'' of
             Left errorMsg -> failingHandler $pack errorMsg
-            Right plan''' -> return $ unscheduledExamsSortedByRegistrations plan'''
+--            Right plan''' -> return $ notPlannedByMeExams plan'''
+            Right plan''' -> return
+                $ sortBy (\e1 e2 -> compare (registrations e2)
+                                            (registrations e1))
+                $ Prelude.filter (not . plannedByMe)
+                $ addStudentRegistrationsToExams
+                    (fromMaybe M.empty studentregs')
+                $ addRegistrationsListToExams (allExams plan''')
+                $ fromMaybe [] regs'
 
         overlaps' :: Ancode -> Handler [Overlaps]
         overlaps' anCode' = do
@@ -131,6 +168,20 @@ server = exams'
                                    $ overlaps $ constraints plan'''
               in return $ filterOverlaps anCode' overlaps''
 
+        examsBySameLecturer' :: Ancode -> Handler [Exam]
+        examsBySameLecturer' anCode' = do
+          plan'' <- liftIO appliedPlan
+          case plan'' of
+            Left errorMsg -> failingHandler $ pack errorMsg
+            Right plan''' ->
+              let allExams' = allExams plan'''
+                  (thisExam, otherExams) =
+                                    partition ((==anCode') . anCode) allExams'
+                  lecturer' = personID $ lecturer $ Prelude.head $ thisExam
+                  otherExams' = Prelude.filter
+                                ((==lecturer') . personID . lecturer) otherExams
+              in return otherExams'
+
 failingHandler :: MonadError ServantErr m => ByteString -> m a
 failingHandler s = throwError myerr
   where myerr :: ServantErr