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

chore(apc): remove outdate workaround

Browse Source
This commit is contained in:
Steffen Jost 2023-07-24 15:33:36 +02:00
parent a25acfac05
commit 8d64ca9842
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Handler/PrintCenter.hs
View File

@ -452,14 +452,9 @@ postPrintAckDirectR = do
Right (fmap Text.strip -> reqIds) -> do -- inside conduit? Right (fmap Text.strip -> reqIds) -> do -- inside conduit?
let nrReq = length reqIds let nrReq = length reqIds
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
nrApcIds <- updateWhereCount nrOk <- updateWhereCount
[PrintJobAcknowledged ==. Nothing, PrintJobApcIdent <-. reqIds] [PrintJobAcknowledged ==. Nothing, PrintJobApcIdent <-. reqIds]
[PrintJobAcknowledged =. Just now] [PrintJobAcknowledged =. Just now]
nrOk <- if nrApcIds <= 0 && nrReq > 0
then updateWhereCount -- for downwards compatibility only
[PrintJobAcknowledged ==. Nothing, PrintJobLmsUser <-. (Just . LmsIdent . dropPrefixText "lms-" <$> reqIds)]
[PrintJobAcknowledged =. Just now]
else return nrApcIds
if | nrReq <= 0 -> do if | nrReq <= 0 -> do
let msg = "Error: No print job was acknowledged as printed, but " <> tshow nrReq <> " were requested to be, for file " <> fhead let msg = "Error: No print job was acknowledged as printed, but " <> tshow nrReq <> " were requested to be, for file " <> fhead
$logErrorS "APC" msg $logErrorS "APC" msg