From: Carl Hetherington <cth@carlh.net>
Date: Thu, 4 Feb 2021 16:34:16 +0000 (+0100)
Subject: Fix failure to write Interop closed captions.
X-Git-Tag: v1.8.0~106
X-Git-Url: https://main.carlh.net/gitweb/?p=libdcp.git;a=commitdiff_plain;h=c2b47febbd178be5e50dcbb3b023f58a0b6441ec

Fix failure to write Interop closed captions.
---

diff --git a/src/reel_closed_caption_asset.cc b/src/reel_closed_caption_asset.cc
index a57a0670..1cb97cb0 100644
--- a/src/reel_closed_caption_asset.cc
+++ b/src/reel_closed_caption_asset.cc
@@ -112,7 +112,14 @@ ReelClosedCaptionAsset::write_to_cpl (xmlpp::Node* node, Standard standard) cons
 	write_to_cpl_mxf (asset);
 
 	if (_language) {
-		asset->add_child("Language", "tt")->add_child_text(*_language);
+		switch (standard) {
+		case Standard::INTEROP:
+			asset->add_child("Language")->add_child_text(*_language);
+			break;
+		case Standard::SMPTE:
+			asset->add_child("Language", "tt")->add_child_text(*_language);
+			break;
+		}
 	}
 
 	return asset;