<%
#SE::breakpoint $PAGE{id};
my $out;
require SE::Events::Veranstaltungen;
$out .= qq(
);
$out .= getVeranstaltungen (
limit => 2,
attribute => 543,
format => "XHTML",
struktur => [
table => {
cellspacing => "0",
cellpadding => "0",
class => "items",
struktur => [
tr => {
class => "item",
struktur => [
td => {
class => 'data',
inhalt => sub { $_[0]->{name} =~ s/^(.{30}).+$/$1.../s if length($_[0]->{name}) > 12; return qq($_[0]->{uhrzeit}
$_[0]->{name}) },
},
],
},
],
}
],
);
$out .= qq();
return $out;
%>
|