refs #673: export to telemac on export of calculation case

diff --git a/src/HYDROData/HYDROData_CalculationCase.cxx b/src/HYDROData/HYDROData_CalculationCase.cxx
index 3919019f0adcfac78e69d3c05c67502bdba55647..5cb82351aa3abe54cef4759c09368d1671546f9c 100644 (file)
--- 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
 }