Skip to content
This repository has been archived by the owner on Oct 27, 2022. It is now read-only.

Commit

Permalink
Create dummy programme if no title is provided (2)
Browse files Browse the repository at this point in the history
  • Loading branch information
@sunsettrack4
sunsettrack4 authored Sep 14, 2019
1 parent c013d2c commit 4887f93
Showing 1 changed file with 143 additions and 39 deletions.
182 changes: 143 additions & 39 deletions prog_combine.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit 4887f93

Please sign in to comment.