From 4887f93368fe71762914ab96158877a367afd921 Mon Sep 17 00:00:00 2001
From: Jan-Luca Neumann <sunsettrack4@gmail.com>
Date: Sat, 14 Sep 2019 11:51:31 +0200
Subject: [PATCH] Create dummy programme if no title is provided (2)

---
 prog_combine.pl | 182 +++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 143 insertions(+), 39 deletions(-)

diff --git a/prog_combine.pl b/prog_combine.pl
index 88f662b..eb31842 100755
--- a/prog_combine.pl
+++ b/prog_combine.pl
@@ -443,10 +443,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -578,10 +586,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -713,10 +729,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -848,10 +872,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -983,10 +1015,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -1118,10 +1158,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -1253,10 +1301,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -1388,10 +1444,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -1523,10 +1587,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -1658,10 +1730,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -1793,10 +1873,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -1928,10 +2016,18 @@
 					# TITLE
 					my $title       = $programme->{title}->{_content};
 					my $title_lang  = $programme->{title}->{lang};
-					if( defined $title_lang ) {
-						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					if( defined $title ) {
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+						} else {
+							print "  <title>" . $title . "</title>\n";
+						}
 					} else {
-						print "  <title>" . $title . "</title>\n";
+						if( defined $title_lang ) {
+							print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+						} else {
+							print "  <title>No programme available</title>\n";
+						}
 					}
 					
 					# SUB-TITLE
@@ -2061,10 +2157,18 @@
 				# TITLE
 				my $title       = $programme->{title}->{_content};
 				my $title_lang  = $programme->{title}->{lang};
-				if( defined $title_lang ) {
-					print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+				if( defined $title ) {
+					if( defined $title_lang ) {
+						print "  <title lang=\"" . $title_lang . "\">" . $title . "</title>\n";
+					} else {
+						print "  <title>" . $title . "</title>\n";
+					}
 				} else {
-					print "  <title>" . $title . "</title>\n";
+					if( defined $title_lang ) {
+						print "  <title lang=\"" . $title_lang . "\">No programme available</title>\n";
+					} else {
+						print "  <title>No programme available</title>\n";
+					}
 				}
 				
 				# SUB-TITLE