From 780fbc28972699f8f6a8f7b36de015d91279d79f Mon Sep 17 00:00:00 2001
From: vro <vro@opencascade.com>
Date: Tue, 1 Oct 2019 08:36:21 +0300
Subject: [PATCH] 0031013: Application Framework - Storage status is wrong
 after a failure

CDF_StoreList.cxx::Store() was amended
---
 src/CDF/CDF_StoreList.cxx | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/CDF/CDF_StoreList.cxx b/src/CDF/CDF_StoreList.cxx
index 38d89d89a9..91149aed7e 100644
--- a/src/CDF/CDF_StoreList.cxx
+++ b/src/CDF/CDF_StoreList.cxx
@@ -101,6 +101,10 @@ PCDM_StoreStatus CDF_StoreList::Store (Handle(CDM_MetaData)& aMetaData, TCollect
             throw Standard_Failure(aMsg.str().c_str());
           }
 
+          // Reset the store-status.
+          // It has sense in multi-threaded access to the storage driver - this way we reset the status for each call.
+          aDocumentStorageDriver->SetStoreStatus(PCDM_SS_OK);
+
           if(!theMetaDataDriver->FindFolder(theDocument->RequestedFolder())) {
             Standard_SStream aMsg; aMsg << "could not find the active dbunit";
             aMsg << TCollection_ExtendedString(theDocument->RequestedFolder())<< (char)0;