From 6c2a6ac0cc75ede8047d365dfc7a8d4c5d40c468 Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Mon, 18 Mar 2019 15:25:14 +0100
Subject: [PATCH] remove program entry from title

---
 website/agenda/aggregate.cgi | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/website/agenda/aggregate.cgi b/website/agenda/aggregate.cgi
index 891c370..5ab017f 100755
--- a/website/agenda/aggregate.cgi
+++ b/website/agenda/aggregate.cgi
@@ -2,6 +2,7 @@
 
 use warnings "all";
 use strict;
+use utf8;
 
 #use CGI qw(header param Vars);
 
@@ -129,7 +130,7 @@ if ( $0 =~ /aggregate.*?\.cgi$/ ) {
     $content =~ s/(<(div|span)\s+id="calcms_title".*?>).*?(<\/(div|span)>)/$list->{project_title}/g;
 
     my $values = [];
-    for my $value ( $list->{'program'}, $list->{'series_name'}, $list->{'title'}, $list->{'location'}, $list->{'project_title'} ) {
+    for my $value ( $list->{'series_name'}, $list->{'title'}, $list->{'location'}, 'Programm '. $list->{project_title} ) {
         next unless defined $value;
         next if $value eq '';
         push @$values, $value;