Plugin whitelist

messages/uniworx/de.msg

@@ -251,4 +251,7 @@ EditedBy name@Text time@Text: Durch #{name} um #{time}
 LastEdit: Letzte Änderung
 
 SubmissionFilesIgnored: Es wurden Dateien in der hochgeladenen Abgabe ignoriert:
-SubmissionDoesNotExist smid@CryptoFileNameSubmission: Es existiert keine Abgabe mit Nummer #{toPathPiece smid}.
+SubmissionDoesNotExist smid@CryptoFileNameSubmission: Es existiert keine Abgabe mit Nummer #{toPathPiece smid}.
+
+LDAPLoginTitle: Campus-Login
+DummyLoginTitle: Development-Login

src/Foundation.hs

@@ -1089,8 +1089,6 @@ instance YesodAuth UniWorX where
             = (dummyPlugin, dummyIdent)
             | otherwise
             = (credsPlugin, credsIdent)
-          isDummy = credsPlugin == "dummy"
-          isPWFile = credsPlugin == "PWFile"
           uAuth = UniqueAuthentication userPlugin userIdent
 
       $logDebugS "auth" $ tshow creds

templates/login.hamlet

@@ -1,7 +1,9 @@
 $forall AuthPlugin{..} <- plugins
-  <section>
-    $if apName == "LDAP"
-      <h2>Campus-Kennung
-    $if apName == "dummy"
-      <h2>Dummy
-    ^{apLogin toParent}
+  $if apName == "LDAP"
+    <section>
+      <h2>_{MsgLDAPLoginTitle}
+      ^{apLogin toParent}
+  $elseif apName == "dummy"
+    <section>
+      <h2>_{MsgDummyLoginTitle}
+      ^{apLogin toParent}