From 4f7855b9ee7133c5ee7e2ca63d63e5d9f060d62f Mon Sep 17 00:00:00 2001 From: Steffen Date: Tue, 3 Sep 2024 12:53:51 +0200 Subject: [PATCH] fix(avs): acs auto synch had inverted success/failure also: some minor typo fixes --- src/Jobs/Handler/SynchroniseAvs.hs | 2 +- .../avs-synchronisation/de-de-formal.hamlet | 28 +++++++++---------- .../i18n/avs-synchronisation/en-eu.hamlet | 22 +++++++-------- 3 files changed, 26 insertions(+), 26 deletions(-) diff --git a/src/Jobs/Handler/SynchroniseAvs.hs b/src/Jobs/Handler/SynchroniseAvs.hs index 1a3ed10ab..c0a0596a0 100644 --- a/src/Jobs/Handler/SynchroniseAvs.hs +++ b/src/Jobs/Handler/SynchroniseAvs.hs @@ -151,7 +151,7 @@ dispatchJobSynchroniseAvsLicences = JobHandlerException $ do -- when (synchLevel procLic aLic up apids | n <- Set.size apids, n > 0 = let subtype = Text.cons (bool '↧' '↥' up) $ Text.singleton $ licence2char aLic - logit errm = runDB $ logInterface' "AVS" subtype False (isJust errm) (Just n) (fromMaybe "Automatic synch" errm) + logit errm = runDB $ logInterface' "AVS" subtype False (isNothing errm) (Just n) (fromMaybe "Automatic synch" errm) catchAllAvs = flip catch (\err -> logit (Just $ tshow (err :: SomeException)) >> return (-1)) in if NTop (Just n) <= NTop maxChanges then do diff --git a/templates/i18n/avs-synchronisation/de-de-formal.hamlet b/templates/i18n/avs-synchronisation/de-de-formal.hamlet index 0c5117f01..502789afc 100644 --- a/templates/i18n/avs-synchronisation/de-de-formal.hamlet +++ b/templates/i18n/avs-synchronisation/de-de-formal.hamlet @@ -50,27 +50,27 @@ $# SPDX-License-Identifier: AGPL-3.0-or-later $if notNull avsLicenceSynchTimes

- Automatische AVS Fahrlizen Sychronisation + Automatische AVS Fahrlizenzen Sychronisation

Uhrzeiten Synchronisation
- Werktags, weniger Minuten nach folgenden vollen Stunden: #{tshow avsLicenceSynchTimes} + Werktags, wenige Minuten nach folgenden vollen Stunden: #{tshow avsLicenceSynchTimes}
Synchronisationslevel
- #{avsLicenceSynchLevel} # - $case avsLicenceSynchLevel - $of 1 - Nur Vorfeld-Fahrberechtigungen entziehen - $of 2 - Vorfeld-Fahrberechtigungen entziehen und gewähren - $of 3 - Vorfeld-Fahrberechtigungen entziehen und gewähren, # - so wie Rollfeld-Fahrberechtigungen zu Vorfeld-Fahrberechtigungen herabstufen - $of _ - Vorfeld- und Rollfeld-Fahrberechtigungen entziehen und gewähren + #{avsLicenceSynchLevel}: # + $case avsLicenceSynchLevel + $of 1 + Nur Vorfeld-Fahrberechtigungen entziehen + $of 2 + Vorfeld-Fahrberechtigungen entziehen und gewähren + $of 3 + Vorfeld-Fahrberechtigungen entziehen und gewähren, # + so wie Rollfeld-Fahrberechtigungen zu Vorfeld-Fahrberechtigungen herabstufen + $of _ + Vorfeld- und Rollfeld-Fahrberechtigungen entziehen und gewähren $maybe reasons <- avsLicenceSynchReasonFilter
Ausnahmen @@ -80,4 +80,4 @@ $if notNull avsLicenceSynchTimes
Maximal Änderungen
- Keine Synchronisation durchführen, wenn es mehr als #{maxChange} Änderungen pro Level wären + Keine Synchronisation eines Levels durchführen, welches mehr als #{maxChange} Änderungen hätte diff --git a/templates/i18n/avs-synchronisation/en-eu.hamlet b/templates/i18n/avs-synchronisation/en-eu.hamlet index 0eba07f77..06bb9561f 100644 --- a/templates/i18n/avs-synchronisation/en-eu.hamlet +++ b/templates/i18n/avs-synchronisation/en-eu.hamlet @@ -60,16 +60,16 @@ $if notNull avsLicenceSynchTimes
Synchronisation level
- #{avsLicenceSynchLevel} # - $case avsLicenceSynchLevel - $of 1 - Revoke apron driving licences only - $of 2 - Grant and revoke apron driving licences only - $of 3 - Grant and revoke apron driving licences and downgrade maneuvering area licences to apron driving licences - $of _ - Grant and revoke all driving licences automatically + #{avsLicenceSynchLevel}: # + $case avsLicenceSynchLevel + $of 1 + Revoke apron driving licences only + $of 2 + Grant and revoke apron driving licences only + $of 3 + Grant and revoke apron driving licences and downgrade maneuvering area licences to apron driving licences + $of _ + Grant and revoke all driving licences automatically $maybe reasons <- avsLicenceSynchReasonFilter
Exemptions @@ -79,4 +79,4 @@ $if notNull avsLicenceSynchTimes
Max changes
- Do not synchronize a licence if the number of changes exceeds #{maxChange} + Do not synchronize a licence level if the number of changes exceeds #{maxChange}