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

aggregate.cgi: shorter filter

Browse Source
This commit is contained in:
Milan
2022-11-18 00:21:03 +01:00
parent 20ab78e6ee
commit 6b43bd3df1
1 changed files with 4 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
website/agenda/aggregate.cgi
View File

@@ -107,17 +107,10 @@ s/\&lt\;span id\=&quot\;calcms_title&quot\;\&gt\;[^\&]*\&lt\;\/span\&gt\;/\<span
$list->{project_title} = '' unless defined $list->{project_title}; $list->{project_title} = '' unless defined $list->{project_title};
$content =~ s/(<(div|span)\s+id="calcms_title".*?>).*?(<\/(div|span)>)/$list->{project_title}/g; $content =~ s/(<(div|span)\s+id="calcms_title".*?>).*?(<\/(div|span)>)/$list->{project_title}/g;
my $values = []; my $title = join ' - ', grep {defined $_ and $_ ne ''} (
for $list->{'series_name'}, $list->{'title'},
my $value ( $list->{'series_name'}, $list->{'title'}, $list->{'location'}, 'Programm ' . $list->{project_title} ) $list->{'location'}, 'Programm ' . $list->{project_title}
{ );
next unless defined $value;
next if $value eq '';
push @$values, $value;
}
my $title = join( ' - ', @$values );
$content =~ s/(<title>)(.*?)(<\/title>)/$1$title$3/; $content =~ s/(<title>)(.*?)(<\/title>)/$1$title$3/;
$js = ''; $js = '';