From: vro <vro@opencascade.com>
Date: Tue, 15 Sep 2020 08:36:11 +0000 (+0300)
Subject: 0031759: Application Framework - regression: support of old versions of OCAF document... 
X-Git-Tag: V7_5_0_beta~61
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=8fde921fbea7c13d679759be26f7bcbff11ac086;p=occt.git

0031759: Application Framework - regression: support of old versions of OCAF document fails
---

diff --git a/src/XmlMDF/XmlMDF.cxx b/src/XmlMDF/XmlMDF.cxx
index 33e55ae9a6..33711f40f1 100644
--- a/src/XmlMDF/XmlMDF.cxx
+++ b/src/XmlMDF/XmlMDF.cxx
@@ -107,7 +107,7 @@ Standard_Integer XmlMDF::WriteSubTree
       // was replaced by TDataXtd_Presentation. Therefore, for old versions
       // we write old name of the attribute (TPrsStd_AISPresentation).
       Standard_CString typeName = aDriver->TypeName().ToCString();
-      if (XmlLDrivers::StorageVersion() < 8 &&
+      if (theRelocTable.GetHeaderData()->StorageVersion().IntegerValue() < 8 &&
           strcmp(typeName, "TDataXtd_Presentation") == 0)
       {
         typeName = "TPrsStd_AISPresentation";