From 5116b6b380ba910008454544ecad4ae6b20fe298 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Mon, 19 Nov 2018 14:47:33 +0100
Subject: [PATCH] SheetCorrectorSubmissionsTip

---
 messages/uniworx/de.msg    |  2 ++
 templates/sheetShow.hamlet | 24 ++++++++++++++++--------
 2 files changed, 18 insertions(+), 8 deletions(-)

diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg
index 2b25922eb..9fb473237 100644
--- a/messages/uniworx/de.msg
+++ b/messages/uniworx/de.msg
@@ -342,6 +342,8 @@ SheetNoSubmissions: Keine Abgabe
 SheetCorrectorSubmissions: Abgabe extern mit Pseudonym
 SheetUserSubmissions: Direkte Abgabe
 
+SheetCorrectorSubmissionsTip: Abgabe erfolgt über ein Uni2Work-externes Verfahren (zumeist in Papierform durch Einwurf) unter Angabe eines persönlichen Pseudonyms. Korrektorn können mithilfe des Pseudonyms später Korrekturergebnisse in Uni2Work eintragen, damit Sie sie einsehen können.
+
 SubmissionNoUploadExpected: Es ist keine Abgabe von Dateien vorgesehen.
 
 FieldPrimary: Hauptfach
diff --git a/templates/sheetShow.hamlet b/templates/sheetShow.hamlet
index 1f7cd7102..508826705 100644
--- a/templates/sheetShow.hamlet
+++ b/templates/sheetShow.hamlet
@@ -21,14 +21,22 @@ $maybe descr <- sheetDescription sheet
     <dd .deflist__dd>_{sheetType sheet}
     <dt .deflist__dt>_{MsgSheetSubmissionMode}
     <dd .deflist__dd>_{sheetSubmissionMode sheet}
-    $if CorrectorSubmissions == sheetSubmissionMode sheet
-      <dt .deflist__dt>_{MsgSheetPseudonym}
-      <dd .deflist__dd #pseudonym>
-        $maybe pseudonym <- mPseudonym
-          <span .pseudonym>#{pseudonym}
-        $nothing
-          <form method=post action=@{CSheetR tid ssh csh shn SPseudonymR} enctype=#{generateEnctype}>
-            ^{generateWidget}
+      $case sheetSubmissionMode sheet
+        $of CorrectorSubmissions
+          <div .js-tooltip>
+            <div .tooltip__handle>
+            <div .tooltip__content>_{MsgSheetCorrectorSubmissionsTip}
+        $of _
+    $case sheetSubmissionMode sheet
+      $of CorrectorSubmissions
+        <dt .deflist__dt>_{MsgSheetPseudonym}
+        <dd .deflist__dd #pseudonym>
+          $maybe pseudonym <- mPseudonym
+            <span .pseudonym>#{pseudonym}
+          $nothing
+            <form method=post action=@{CSheetR tid ssh csh shn SPseudonymR} enctype=#{generateEnctype}>
+              ^{generateWidget}
+      $of _
 
 $if hasFiles
   <section>