Headerbilder

<% $bild = &gen_widgets('filebank_html', 1, 480, "Motiv1", "", "", ""); %>

<% $bild = &gen_widgets('filebank_html', 2, 340, "Motiv2", "", "", ""); %> <% $bild = &gen_widgets('filebank_html', 3, 165, "Motiv3", "", "", ""); %>

Box auf der linken Seite

<% gen_widgets("htmledit_html", 8, 130, 25, "headline", "Überschrift", 150); %>

<% gen_widgets("htmledit_html", 10, 130, 200, "", "Fliesstext", 255); %>

<% my $linkIntern; foreach my $menu ( @{$SE{redsys}} ) { my @seite = split /\t/, $menu; my $chk = "$seite[0]" eq $value[9] ? "selected" : ""; $linkIntern .= qq(\n); } $linkInternSelect = qq( Intern verknüpfen mit:
); $linkInternSelect; %>

<% gen_widgets("htmledit_html", 11, 130, 25, "headline", "Überschrift", 150); %>

<% gen_widgets("htmledit_html", 12, 130, 200, "", "Fliesstext", 255); %>

<% my $linkIntern; foreach my $menu ( @{$SE{redsys}} ) { my @seite = split /\t/, $menu; my $chk = "$seite[0]" eq $value[13] ? "selected" : ""; $linkIntern .= qq(\n); } $linkInternSelect = qq( Intern verknüpfen mit:
); $linkInternSelect; %>

<% gen_widgets("htmledit_html", 4, 130, 25, "headline", "Überschrift", 150); %>

<% gen_widgets('filebank_html', 5, 150, "Bild"); %>

<% gen_widgets("htmledit_html", 6, 130, 200, "", "Fliesstext", 255); %>

<% my $linkIntern; foreach my $menu ( @{$SE{redsys}} ) { my @seite = split /\t/, $menu; my $chk = "$seite[0]" eq $value[7] ? "selected" : ""; $linkIntern .= qq(\n); } $linkInternSelect = qq( Intern verknüpfen mit:
); $linkInternSelect; %>