diff --git a/src/Handler/LMS.hs b/src/Handler/LMS.hs
index 398835d8a..0a50be36f 100644
--- a/src/Handler/LMS.hs
+++ b/src/Handler/LMS.hs
@@ -19,6 +19,7 @@ module Handler.LMS
   , getLmsResultUploadR   , postLmsResultUploadR  , postLmsResultDirectR
   , getLmsFakeR           , postLmsFakeR
   , getLmsUserR
+  , getLmsUserSchoolR
   , getLmsUserAllR     
   )
   where
diff --git a/src/Handler/Utils/Table/Cells.hs b/src/Handler/Utils/Table/Cells.hs
index 2757a9574..6e12bef8d 100644
--- a/src/Handler/Utils/Table/Cells.hs
+++ b/src/Handler/Utils/Table/Cells.hs
@@ -340,7 +340,7 @@ qualificationValidUntilCell' mbToLink d qb qu = cell $ case mbToLink of
     Nothing     -> headWgt <> dateWgt
     Just toLink -> do 
       uuid <- liftHandler $ encrypt $ qu ^. hasQualificationUser . _qualificationUserUser
-      let modalWgt = modal blockWgt (Left $ SomeRoute $ toLink uuid)
+      let modalWgt = modal dateWgt (Left $ SomeRoute $ toLink uuid)
       headWgt <> modalWgt
   where       
     dateWgt = formatTimeW SelFormatDate (qu ^. hasQualificationUser . _qualificationUserValidUntil)