<% loadLang( paket => "Adresse" ); loadLang( paket => "Werbemittel" ); my $out; if ( $in{community_status} eq "adddialog_done" ) { $out = qq(
$LANG{Vielen_Dank_Prospektbestellung}
); if( $value[26] ne ""){ $out .= qq(
); } } else { require "se_mysql.pl"; my $dbh = &mysql_connect; # ----- Werbemittel-Liste generieren --------------------------------------------------------------- my $html_werbemittel; $value[12] =~ s/\0/,/g; require SE::Travel::Werbemittel; my @werbemittel = getWerbemittel( id => $value[12], sprache => $PAGE{language} ); my @werbemittel_show; # Liste der darzustellenden Werbemittel my %werbemittel; foreach my $werbemittel ( @werbemittel ) { $werbemittel{$werbemittel->{id}} = $werbemittel; push @werbemittel_show, $werbemittel->{id}; } # Liste der darzustellenden Werbemittel ggf. aus Vorlage auslesen (wg Reihenfolge etc) @werbemittel_show = split /
|
|\n/, $value[14] if $value[14] =~ /\w+/; my $last_werbemittel; foreach (@werbemittel_show) { my $werbemittel = $werbemittel{$_}; $html_werbemittel .= qq(
$werbemittel->{gruppe}
) if $werbemittel->{gruppe} ne "" && $werbemittel->{gruppe} ne $last_werbemittel->{gruppe} && $value[24]; # bild anzeigen ? my $image = $werbemittel->{bild} && -s "${appdir}/_filebank/$werbemittel->{bild}" ? "
" : ' '; my $hinweis_pdf; if ($werbemittel->{pdf} && -e "${appdir}/_filebank/$werbemittel->{pdf}") { my $filesize = (stat("${appdir}/_filebank/$werbemittel->{pdf}"))[7]; $filesize = $filesize / 1000; $filesize = sprintf ("%2.0f kB",$filesize); $hinweis_pdf = qq(
$werbemittel->{name}
Download: $filesize
) } my $checked = $value[11] =~ /\b$werbemittel->{id}\b/ ? "CHECKED" : "" ; my $disabled = $value[11] =~ /\b$werbemittel->{id}\b/ || $value[25] ? "DISABLED" : "" ; my $hidden = $value[11] =~ /\b$werbemittel->{id}\b/ ? qq(
) : "" ; $html_werbemittel .= qq(
$hidden
$image
$werbemittel->{name}
$werbemittel->{beschreibung} $hinweis_pdf
); $last_werbemittel = $werbemittel; } # ----- /// Werbemittel-Liste generieren --------------------------------------------------------------- require SE::Lib::GUI; require SE::Community::Laender; my $gui = SE::Lib::GUI->new(); my $html_land = $gui->genWidget( typ => "select", name => "land", width => 330, data => [ getLaender( format => 'ARRAY' ) ], value => "de", ); $out .= qq(
$html_werbemittel
); my $geburtstagSelects = $gui->genWidget( typ => "select", name => "geburtstagDay", data => [ map(($_ => $_), (1..31)) ], value => "1", ); $geburtstagSelects .= $gui->genWidget( typ => "select", name => "geburtstagMonth", data => [ map(($_ => $_), (1..12)) ], value => "1", ); my $year = ((localtime(time))[5]+1900); $geburtstagSelects .= $gui->genWidget( typ => "select", name => "geburtstagYear", data => [ map(($_ => $_), ($year-120..$year)) ], value => $year-40, ); $out .= qq(
$LANG{Anrede}
$LANG{Vorname}
$LANG{Nachname}
$LANG{Anschrift_Herr}
$LANG{Anschrift_Frau}
$LANG{Anschrift_Familie}
Geburtstag (Tag, Monat, Jahr)
$geburtstagSelects
$LANG{Firma}*
$LANG{Strasse} / $LANG{Hausnummer}
$LANG{PLZ}
$LANG{Ort}
$LANG{Land}
$html_land
$LANG{Telefon}*
$LANG{Fax}*
$LANG{Email}*
Wir bieten Reisenden ab 50 einen zusätzlichen Service:
Die kostenlose Kurkarte? Haben Sie Interesse daran?
Ja, ich möchte Informationen zur KOSTENLOSEN KURKARTE
Ihres Gesundheits- und Vorsorgepartners 50Plus.
* $LANG{Optionale_Angaben}
) unless $value[25]; } return $out; %>
