Write OriginalFileName tags in PKL (DoM #2394).

Without these it EasyDCP gives errors like

"Id field in PKL must match uuid in asset"
"Each Id used in the PKL files must be unique or reference the same file"

which seem wrong but, as usual, here we are.

1 files changed, 5 insertions, 2 deletions

diff --git a/src/pkl.cc b/src/pkl.cc
index 5465d578..9ba716fb 100644
--- a/src/pkl.cc
+++ b/src/pkl.cc
@@ -87,9 +87,9 @@ PKL::PKL (boost::filesystem::path file)
 
 
 void
-PKL::add_asset (std::string id, boost::optional<std::string> annotation_text, std::string hash, int64_t size, std::string type)
+PKL::add_asset(std::string id, boost::optional<std::string> annotation_text, std::string hash, int64_t size, std::string type, std::string original_filename)
 {
-	_asset_list.push_back (make_shared<Asset>(id, annotation_text, hash, size, type));
+	_asset_list.push_back(make_shared<Asset>(id, annotation_text, hash, size, type, original_filename));
 }
 
 
@@ -122,6 +122,9 @@ PKL::write_xml (boost::filesystem::path file, shared_ptr<const CertificateChain>
 		asset->add_child("Hash")->add_child_text (i->hash());
 		asset->add_child("Size")->add_child_text (raw_convert<string>(i->size()));
 		asset->add_child("Type")->add_child_text (i->type());
+		if (auto filename = i->original_filename()) {
+			asset->add_child("OriginalFileName")->add_child_text(*filename);
+		}
 	}
 
 	indent (pkl, 0);