| <% $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}
);
}
%%% |
<% $VA{OBJEKT_INTERNE_ANWEISUNG} %> |