| $img |
$value[$i3]
$value[$i4] $lnk |
);">
Newsletter vom <% $value[0] %>
|
<%
my $bilder = $value[4] ? qq( |
<% $value[120] ? qq(
$value[120]) : "" %> <% $value[121] ? qq($value[121]) : "" %> <% $value[122] ? qq($value[122] ) : "" %> |
Inhalte
<% my $output; for ( $i = 1; $i < 11; $i++ ) { $i1 = $i*10+1; $i2 = $i*10+2; $i3 = $i*10+3; $i4 = $i*10+4; $i5 = $i*10+5; $i6 = $i*10+6; $output .= qq(
 |
$value[$i3] |
<%
my $output;
for ( $i = 1; $i < 11; $i++ ) {
$i1 = $i*10+1;
$i2 = $i*10+2;
$i3 = $i*10+3;
$i4 = $i*10+4;
$i5 = $i*10+5;
$i6 = $i*10+6;
$i7 = $i*10+7;
$x1 = $i*3+130+1;
$x2 = $i*3+130+2;
$x3 = $i*3+130+3;
my %farbe = (
"#85BAFC" => "blau",
"#976EE0" => "blauviolett",
"#72CCDC" => "hellblau",
"#4348A2" => "dunkelblau",
"#F8E072" => "gelb",
"#BCE3AA" => "gruen",
"#F39150" => "orange",
"#CC3917" => "rot",
"#D75CBC" => "rotviolett",
);
my $lnk;
if ($value[$i6]) {
$lnk = qq( | mehr Info);
} elsif ($value[$i5]) {
$lnk = qq( | mehr Info);
}
my $xbild1 = qq(
) if $value[$x1];
my $xbild2 = qq(
) if $value[$x2];
my $xbild3 = qq(
) if $value[$x3];
my $img = qq(
) if $value[$i1];
my $hintergrund_bild = qq(http://$ENV{HTTP_HOST}/gfx/newsletter/slogan/$farbe{$value[$i7]}/$value[$i2]);
$output .= qq(
$xbild1
$xbild2
$xbild3
) if ($value[$i3] ne "");
}
return $output;
%>