Fix failure to write Interop closed captions.

diff --git a/src/reel_closed_caption_asset.cc b/src/reel_closed_caption_asset.cc
index a57a06705368c77d4d12d9131c276dad01efe0a7..1cb97cb01c64df8a34498c249baf0b0622620c8e 100644 (file)
--- 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) {
        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;
        }
 
        return asset;