diff --git a/src/Handler/PrintCenter.hs b/src/Handler/PrintCenter.hs index 0f7d5257a..4cbd41d95 100644 --- a/src/Handler/PrintCenter.hs +++ b/src/Handler/PrintCenter.hs @@ -452,14 +452,9 @@ postPrintAckDirectR = do Right (fmap Text.strip -> reqIds) -> do -- inside conduit? let nrReq = length reqIds now <- liftIO getCurrentTime - nrApcIds <- updateWhereCount + nrOk <- updateWhereCount [PrintJobAcknowledged ==. Nothing, PrintJobApcIdent <-. reqIds] [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 let msg = "Error: No print job was acknowledged as printed, but " <> tshow nrReq <> " were requested to be, for file " <> fhead $logErrorS "APC" msg