X-Git-Url: https://git.carlh.net/gitweb/?p=dcpomatic.git;a=blobdiff_plain;f=src%2Flib%2Fwriter.cc;h=d85be9eff2b741adebbb9165d5b3ff01938c16a8;hp=8b51eb58759a1364ed9af4fc80ff388401b164e1;hb=3661ccf24272923221c78b4469c6def07199cee6;hpb=c3a6425cf43781895774f800967c09767a1e9332

diff --git a/src/lib/writer.cc b/src/lib/writer.cc
index 8b51eb587..d85be9eff 100644
--- a/src/lib/writer.cc
+++ b/src/lib/writer.cc
@@ -717,6 +717,10 @@ Writer::write_cover_sheet (boost::filesystem::path output_dcp)
 
 	auto text = Config::instance()->cover_sheet ();
 	boost::algorithm::replace_all (text, "$CPL_NAME", film()->name());
+	auto cpls = film()->cpls();
+	if (!cpls.empty()) {
+		boost::algorithm::replace_all (text, "$CPL_FILENAME", cpls[0].cpl_file.filename().string());
+	}
 	boost::algorithm::replace_all (text, "$TYPE", film()->dcp_content_type()->pretty_name());
 	boost::algorithm::replace_all (text, "$CONTAINER", film()->container()->container_nickname());