From e4eb6db1b825ce26ef93834b74360dc1ff2c75f0 Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Sat, 23 May 2020 23:49:53 +0200
Subject: [PATCH] events.pm: allow title field keys: ekey, skey, stkey

now single fields of full_title can be used in templates.

ekey:  episode
skey:  series
stkey: separator between series and title
---
 lib/calcms/events.pm | 40 ++++++++++++++++++++++++----------------
 1 file changed, 24 insertions(+), 16 deletions(-)

diff --git a/lib/calcms/events.pm b/lib/calcms/events.pm
index 238e517..1daeae7 100644
--- a/lib/calcms/events.pm
+++ b/lib/calcms/events.pm
@@ -1718,6 +1718,11 @@ sub check_params ($$) {
     return $checked;
 }
 
+sub l($){
+    my ($word) = @_;
+    return length $word ? $word : ();
+}
+
 sub get_keys($) {
     my ($event) = @_;
 
@@ -1728,25 +1733,28 @@ sub get_keys($) {
     my $episode                = $event->{episode}                || '';
     my $recurrence_count_alpha = $event->{recurrence_count_alpha} || '';
 
-    my $skey = '';
-    $skey .= $series_name if $series_name ne '';
-    $skey .= ' - '
-      if ( $series_name ne '' )
-      && ( ( $title ne '' ) || ( $user_title ne '' ) );
+    # "<title>: <user-title>"
+    my $tkey = join (': ', (l($title), l($user_title)));
 
-    my $tkey = '';
-    $tkey = $title if $title ne '';
-    $tkey .= ': ' if ( $title ne '' ) && ( $user_title ne '' );
-    $tkey .= $user_title             if $user_title ne '';
-    $tkey .= ' #' . $episode         if $episode ne '';
-    $tkey .= $recurrence_count_alpha if $recurrence_count_alpha ne '';
+    # episode "#123c"
+    my $ekey = join '', (
+        (length $episode) ? '#'.$episode : '',
+        $recurrence_count_alpha
+    );
 
+    # "<title> <episode>"
+    my $te = join " ", (l($tkey), l($ekey));
+
+    # separation between <series> and <title>
+    my $stkey = ( length($series_name) and length($te) ) ? ' - ' : '';
+    
     return {
-        key                             => $skey . $tkey,
-        full_title                      => $skey . $tkey,
-        full_title_no_series            => $tkey . $pkey,
-        full_title_no_program           => $skey . $tkey,
-        full_title_no_program_no_series => $tkey
+        skey                            => $series_name,
+        stkey                           => $stkey,
+        tkey                            => $tkey,
+        ekey                            => $ekey,
+        full_title                      => $series_name . $stkey . $te,
+        full_title_no_series            => $te,
     };
 }