From 24b3042f3891394463f12da6b1167d3f2ec34dcd Mon Sep 17 00:00:00 2001
From: asl <asl@opencascade.com>
Date: Fri, 27 Nov 2015 12:05:22 +0300
Subject: [PATCH] refs #673: export to telemac on export of calculation case

---
 src/HYDROData/HYDROData_CalculationCase.cxx | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/HYDROData/HYDROData_CalculationCase.cxx b/src/HYDROData/HYDROData_CalculationCase.cxx
index 3919019f..5cb82351 100644
--- a/src/HYDROData/HYDROData_CalculationCase.cxx
+++ b/src/HYDROData/HYDROData_CalculationCase.cxx
@@ -975,6 +975,13 @@ QString HYDROData_CalculationCase::Export( int theStudyId ) const
   
   QString aGeomObjEntry, anErrorMsg;
   bool isOK = Export( aGEOMEngine, aDSStudy, aGeomObjEntry, anErrorMsg );
+  if( isOK && !GetLandCoverMap().IsNull() && !GetStricklerTable().IsNull() )
+  {
+    QString aTelemacFileName = GetName() + ".telemac";
+    isOK = GetLandCoverMap()->ExportTelemac( aTelemacFileName, 1E-2, GetStricklerTable() );
+  }
+
+
   return isOK ? aGeomObjEntry : QString();
 #endif
 }
-- 
2.39.2