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

events.pm: remove program

Browse Source
This commit is contained in:
Milan
2020-05-23 23:36:15 +02:00
parent 8008e505b4
commit 80d7e1bb01
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/calcms/events.pm
View File

@@ -1721,7 +1721,7 @@ sub check_params ($$) {
sub get_keys($) {
my ($event) = @_;
my $program = $event->{program} || '';
#my $program = $event->{program} || '';
my $series_name = $event->{series_name} || '';
my $title = $event->{title} || '';
my $user_title = $event->{user_title} || '';
@@ -1741,12 +1741,9 @@ sub get_keys($) {
$tkey .= ' #' . $episode if $episode ne '';
$tkey .= $recurrence_count_alpha if $recurrence_count_alpha ne '';
my $pkey = '';
$pkey = ' (' . $program . ')' if $program ne '';
return {
key => $skey . $tkey . $pkey,
full_title => $skey . $tkey . $pkey,
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