kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

events.pm: allow title field keys: ekey, skey, stkey

Browse Source 
now single fields of full_title can be used in templates.

ekey:  episode
skey:  series
stkey: separator between series and title
This commit is contained in:
Milan
2020-05-23 23:49:53 +02:00
parent 80d7e1bb01
commit e4eb6db1b8
1 changed files with 24 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
lib/calcms/events.pm
View File

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