<% $VA{OBJEKT_LETZTES_DATUM_VON} ne $VA{OBJEKT_DATUM_VON} ? substr($VA{OBJEKT_WOCHENTAG},0,2) : ' ' %> <% $VA{OBJEKT_LETZTES_DATUM_VON} ne $VA{OBJEKT_DATUM_VON} ? $VA{OBJEKT_DATUM_VON} : ' ' %> <% qq($VA{OBJEKT_UHRZEIT_VON} ) . ($VA{OBJEKT_UHRZEIT_BIS} =~ /\d+\.\d+\.\d+/ ? $VA{OBJEKT_UHRZEIT_BIS} : $VA{OBJEKT_UHRZEIT_VON} =~ /Uhr/ ? '' : 'Uhr' ) %> <% $VA{OBJEKT_LOCATION} %> %%% my $info = $VA{OBJEKT_BESCHREIBUNG}; $info =~ s/\[mehr\]//; $VA{OBJEKT_BESCHREIBUNG_ORGINAL} =~ s/\s+$//; $VA{OBJEKT_NAME} =~ s/\s+$//; if ($VA{OBJEKT_NAME} ne substr("$VA{OBJEKT_BESCHREIBUNG_ORGINAL}",0,length $VA{OBJEKT_NAME} )) { qq($VA{OBJEKT_NAME}
); } %%% <% my $Eintritt = qq($VA{DETAILS_ATTRIBUT_HASH}->{238}); qq(oA) if $Eintritt; %> <% my $Eintritt = qq($VA{DETAILS_ATTRIBUT_HASH}->{239}); qq(mE) if $Eintritt; %> <% my $Eintritt = qq($VA{DETAILS_ATTRIBUT_HASH}->{241}); qq(oE) if $Eintritt; %> <% my $Eintritt = qq($VA{DETAILS_ATTRIBUT_HASH}->{244}); qq(mKfE) if $Eintritt; %> <% $VA{DETAILS_KATEGORIE_KLARTEXT} %>