fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(avs): acs auto synch had inverted success/failure

Browse Source 
also: some minor typo fixes
This commit is contained in:
Steffen Jost 2024-09-03 12:53:51 +02:00
parent 1e896da4a3
commit 4f7855b9ee
3 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Jobs/Handler/SynchroniseAvs.hs
View File

@ -151,7 +151,7 @@ dispatchJobSynchroniseAvsLicences = JobHandlerException $ do -- when (synchLevel
procLic aLic up apids procLic aLic up apids
| n <- Set.size apids, n > 0 = | n <- Set.size apids, n > 0 =
let subtype = Text.cons (bool '↧' '↥' up) $ Text.singleton $ licence2char aLic 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)) catchAllAvs = flip catch (\err -> logit (Just $ tshow (err :: SomeException)) >> return (-1))
in if NTop (Just n) <= NTop maxChanges in if NTop (Just n) <= NTop maxChanges
then do then do

28
templates/i18n/avs-synchronisation/de-de-formal.hamlet
View File

@ -50,27 +50,27 @@ $# SPDX-License-Identifier: AGPL-3.0-or-later
$if notNull avsLicenceSynchTimes $if notNull avsLicenceSynchTimes
<section> <section>
<h2> <h2>
Automatische AVS Fahrlizen Sychronisation Automatische AVS Fahrlizenzen Sychronisation
<p> <p>
<dl .deflist> <dl .deflist>
<dt .deflist__dt> <dt .deflist__dt>
Uhrzeiten Synchronisation Uhrzeiten Synchronisation
<dd .deflist__dd> <dd .deflist__dd>
Werktags, weniger Minuten nach folgenden vollen Stunden: #{tshow avsLicenceSynchTimes} Werktags, wenige Minuten nach folgenden vollen Stunden: #{tshow avsLicenceSynchTimes}
<dt .deflist__dt> <dt .deflist__dt>
Synchronisationslevel Synchronisationslevel
<dd .deflist__dd> <dd .deflist__dd>
#{avsLicenceSynchLevel} # <strong>#{avsLicenceSynchLevel}: #
$case avsLicenceSynchLevel $case avsLicenceSynchLevel
$of 1 $of 1
Nur Vorfeld-Fahrberechtigungen entziehen Nur Vorfeld-Fahrberechtigungen entziehen
$of 2 $of 2
Vorfeld-Fahrberechtigungen entziehen und gewähren Vorfeld-Fahrberechtigungen entziehen und gewähren
$of 3 $of 3
Vorfeld-Fahrberechtigungen entziehen und gewähren, # Vorfeld-Fahrberechtigungen entziehen und gewähren, #
so wie Rollfeld-Fahrberechtigungen zu Vorfeld-Fahrberechtigungen herabstufen so wie Rollfeld-Fahrberechtigungen zu Vorfeld-Fahrberechtigungen herabstufen
$of _ $of _
Vorfeld- und Rollfeld-Fahrberechtigungen entziehen und gewähren Vorfeld- und Rollfeld-Fahrberechtigungen entziehen und gewähren
$maybe reasons <- avsLicenceSynchReasonFilter $maybe reasons <- avsLicenceSynchReasonFilter
<dt .deflist__dt> <dt .deflist__dt>
Ausnahmen Ausnahmen
@ -80,4 +80,4 @@ $if notNull avsLicenceSynchTimes
<dt .deflist__dt> <dt .deflist__dt>
Maximal Änderungen Maximal Änderungen
<dd .deflist__dd> <dd .deflist__dd>
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

22
templates/i18n/avs-synchronisation/en-eu.hamlet
View File

@ -60,16 +60,16 @@ $if notNull avsLicenceSynchTimes
<dt .deflist__dt> <dt .deflist__dt>
Synchronisation level Synchronisation level
<dd .deflist__dd> <dd .deflist__dd>
#{avsLicenceSynchLevel} # <strong>#{avsLicenceSynchLevel}: #
$case avsLicenceSynchLevel $case avsLicenceSynchLevel
$of 1 $of 1
Revoke apron driving licences only Revoke apron driving licences only
$of 2 $of 2
Grant and revoke apron driving licences only Grant and revoke apron driving licences only
$of 3 $of 3
Grant and revoke apron driving licences and downgrade maneuvering area licences to apron driving licences Grant and revoke apron driving licences and downgrade maneuvering area licences to apron driving licences
$of _ $of _
Grant and revoke all driving licences automatically Grant and revoke all driving licences automatically
$maybe reasons <- avsLicenceSynchReasonFilter $maybe reasons <- avsLicenceSynchReasonFilter
<dt .deflist__dt> <dt .deflist__dt>
Exemptions Exemptions
@ -79,4 +79,4 @@ $if notNull avsLicenceSynchTimes
<dt .deflist__dt> <dt .deflist__dt>
Max changes Max changes
<dd .deflist__dd> <dd .deflist__dd>
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}