| <% qq($VA{OBJEKT_UHRZEIT}) %> |
<% $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_KURZBESCHREIBUNG}" %> |
<% 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;
%>
|