feat(csv import): add explanation text

messages/uniworx/de.msg

@@ -1378,6 +1378,7 @@ CsvImportConfirmationTip: Durch den CSV-Import würden die unten aufgeführten
 CsvImportUnnecessary: Durch den CSV-Import würden keine Änderungen vorgenommen werden
 CsvImportSuccessful n@Int: CSV-Import erfolgreich, es #{pluralDE n "wurde eine Aktion" (mappend (mappend "wurden " (toMessage n)) " Aktionen")} durchgeführt
 CsvImportAborted: CSV-Import abgebrochen
+CsvImportExplanationLabel: Hinweise zum CSV-Import
 
 Proportion c@Text of@Text prop@Rational: #{c}/#{of} (#{rationalToFixed2 (100 * prop)}%)
 

src/Handler/Utils.hs

@@ -15,10 +15,6 @@ import Data.CaseInsensitive (original)
 -- import qualified Data.CaseInsensitive as CI
 import qualified Data.Conduit.List as Conduit
 
-import Language.Haskell.TH
-import Language.Haskell.TH.Syntax (qRunIO)
--- import Language.Haskell.TH.Datatype
-
 import Text.Hamlet (shamletFile)
 
 import Handler.Utils.DateTime as Handler.Utils
@@ -32,12 +28,9 @@ import Handler.Utils.Rating     as Handler.Utils hiding (extractRatings)
 import Handler.Utils.Sheet      as Handler.Utils
 import Handler.Utils.Mail       as Handler.Utils
 import Handler.Utils.ContentDisposition as Handler.Utils
+import Handler.Utils.I18n       as Handler.Utils
 
-import System.Directory (listDirectory)
+import System.FilePath.Posix (takeFileName)
-import System.FilePath.Posix (takeBaseName, takeFileName)
-
-import qualified Data.List as List
-import qualified Data.List.NonEmpty as NonEmpty
 
 import Control.Monad.Logger
 
@@ -218,36 +211,6 @@ warnTermDays tid timeNames = do
   forM_ outoflecture  $ warnI MsgDayIsOutOfLecture
   forM_ outoftermdays $ warnI MsgDayIsOutOfTerm
 
--- | Add language dependent template files
---
--- For large files which are translated as a whole.
---
--- Argument musst be a directory under @/templates@,
--- which contains a file for each language,
--- eg. @imprint@ for choosing between
--- @/templates/imprint/de.hamlet@, @/templates/imprint/de-at.hamlet@,
--- and @/templates/imprint/en.hamlet@
---
--- Dependency detection cannot work properly (no `addDependentFile`-equivalent
--- for directories)
--- @$ stack clean@ is required so new translations show up
-i18nWidgetFile :: FilePath -> Q Exp
-i18nWidgetFile basename = do
-  -- Construct list of available translations (@de@, @en@, ...) at compile time
-  let i18nDirectory = "templates" </> "i18n" </> basename
-  availableFiles <- qRunIO $ listDirectory i18nDirectory
-  let availableTranslations = sortWith (NTop . flip List.elemIndex (NonEmpty.toList appLanguages)) . List.nub $ pack . takeBaseName <$> availableFiles
-  availableTranslations' <- maybe (fail $ "‘" <> i18nDirectory <> "’ is empty") return $ NonEmpty.nonEmpty availableTranslations
-
-  -- Dispatch to correct language (depending on user settings via `selectLanguage`) at run time
-  ws <- newName "ws" -- Name for dispatch function
-  letE
-    [ funD ws $ [ clause [litP $ stringL l] (normalB . widgetFile $ "i18n" </> basename </> l) []
-                | l <- unpack <$> NonEmpty.toList availableTranslations' -- One function definition for every available language
-                ] ++ [ clause [wildP] (normalB [e| error "selectLanguage returned an invalid translation" |]) [] ] -- Fallback mostly there so compiler does not complain about non-exhaustive pattern match
-    ] [e|selectLanguage availableTranslations' >>= $(varE ws)|]
-
-
 
 -- | return a value only if the current user ist authorized for a given route
 guardAuthorizedFor :: ( HandlerSite h ~ UniWorX, MonadHandler h, MonadLogger h

src/Handler/Utils/I18n.hs

@@ -0,0 +1,43 @@
+module Handler.Utils.I18n
+  where
+
+import Import
+
+import Language.Haskell.TH
+import Language.Haskell.TH.Syntax (qRunIO)
+
+import qualified Data.List as List
+import qualified Data.List.NonEmpty as NonEmpty
+
+import System.Directory (listDirectory)
+import System.FilePath.Posix (takeBaseName)
+
+
+-- | Add language dependent template files
+--
+-- For large files which are translated as a whole.
+--
+-- Argument musst be a directory under @/templates@,
+-- which contains a file for each language,
+-- eg. @imprint@ for choosing between
+-- @/templates/imprint/de.hamlet@, @/templates/imprint/de-at.hamlet@,
+-- and @/templates/imprint/en.hamlet@
+--
+-- Dependency detection cannot work properly (no `addDependentFile`-equivalent
+-- for directories)
+-- @$ stack clean@ is required so new translations show up
+i18nWidgetFile :: FilePath -> Q Exp
+i18nWidgetFile basename = do
+  -- Construct list of available translations (@de@, @en@, ...) at compile time
+  let i18nDirectory = "templates" </> "i18n" </> basename
+  availableFiles <- qRunIO $ listDirectory i18nDirectory
+  let availableTranslations = sortWith (NTop . flip List.elemIndex (NonEmpty.toList appLanguages)) . List.nub $ pack . takeBaseName <$> availableFiles
+  availableTranslations' <- maybe (fail $ "‘" <> i18nDirectory <> "’ is empty") return $ NonEmpty.nonEmpty availableTranslations
+
+  -- Dispatch to correct language (depending on user settings via `selectLanguage`) at run time
+  ws <- newName "ws" -- Name for dispatch function
+  letE
+    [ funD ws $ [ clause [litP $ stringL l] (normalB . widgetFile $ "i18n" </> basename </> l) []
+                | l <- unpack <$> NonEmpty.toList availableTranslations' -- One function definition for every available language
+                ] ++ [ clause [wildP] (normalB [e| error "selectLanguage returned an invalid translation" |]) [] ] -- Fallback mostly there so compiler does not complain about non-exhaustive pattern match
+    ] [e|selectLanguage availableTranslations' >>= $(varE ws)|]

src/Handler/Utils/Table/Pagination.hs

@@ -42,6 +42,7 @@ import Handler.Utils.Table.Pagination.CsvColumnExplanations
 import Handler.Utils.Form
 import Handler.Utils.Csv
 import Handler.Utils.ContentDisposition
+import Handler.Utils.I18n
 import Utils
 import Utils.Lens
 
@@ -851,6 +852,7 @@ dbTable PSValidator{..} dbtable@DBTable{ dbtIdent = dbtIdent'@(toPathPiece -> db
       , formSubmit = FormSubmit
       , formAnchor = Nothing :: Maybe Text
       }
+    csvImportExplanation = modal [whamlet|_{MsgCsvImportExplanationLabel}|] $ Right $(i18nWidgetFile "table/csv-import-explanation")
     csvColExplanations = case dbtCsvEncode of
       (Just (Dict, _) :: DBTCsvEncode _ csv) -> assertM' (not . null) . Map.toList . csvColumnsExplanations $ Proxy @csv
       Nothing -> Nothing

templates/i18n/table/csv-import-explanation/de.hamlet

@@ -0,0 +1,21 @@
+<h3>Hinweise zum Import von CSV-Dateien
+<dl .deflist>
+    <dt .deflist__dt>Änderungen
+    <dd .deflist__dd>
+      Alle Werte können durch den Import verändert werden,
+      auch bereits Beim Export bereits vorhandene Werte.
+    <dt .deflist__dt>Vorschau
+    <dd .deflist__dd>
+      Bevor Werte geändert werden, wird eine Vorschau der Änderungen angezeigt.
+    <dt .deflist__dt>Leere Zellen
+    <dd .deflist__dd>
+      Löschbare Zellen werden durch leere Zellen gelöscht oder auf eindeutige Werte gesetzt.
+    <dt .deflist__dt>Konsistenz
+    <dd .deflist__dd>
+      <p>
+        Es werden nur konsistente Änderungen akzeptiert!
+      <p>
+        Daraus folgt, dass es sinnvoll sein kann, gewisse Zellen frei zu lassen;
+        z.B. ändert man ein Studienfachzuordnung eines Teilnehmers ab,
+        dann müsste man auch Abschluss und Semesterzahl passend ändern.
+        Da diese jedoch eindeutig sind, kann man diese Zellen einfach frei lassen.

templates/table/csv-transcode.hamlet

@@ -4,6 +4,7 @@ $if is _Just dbtCsvDecode
     <h3 .csv-import__toggle uw-show-hide data-show-hide-id=table-csv-import data-show-hide-collapsed>
       _{MsgTableHeadingCsvImport}
     <div .csv-import__content>
+      ^{csvImportExplanation}
       ^{csvImportWdgt'}
 $if is _Just dbtCsvEncode
   <div .csv-export>