<% my $out; if ( $in{status} eq 'done' ) { $out .= qq( $LANG{Bestaetigungstext_Anfrage} ); } else { require "se_gui.pl"; $out .= &gen_widgets("calendar_js"); my $bis = &gen_widgets("calendar_html","bis","UNIXTIME","SIMPLE","travelform",0,time+ 60*60*24*5,"DDMMYYYY"); my $von = &gen_widgets("calendar_html","von","UNIXTIME","SIMPLE","travelform",0,time,"DDMMYYYY"); $out .= qq(
$von    $bis    $LANG{in_diesem_Zeitraum_fuer} $LANG{Tage}

); my $html_orte = ''; my %sel; $sel{$in{filter_ort}} = "SELECTED"; use SE::Travel::Lib; my $orte = getTravelOrteHashref($in{filter_mandanten}); for my $ort ( sort keys %$orte ) { $html_orte .= qq(); } $out .= qq(
); $out .= qq(
 
$LANG{Name_Ansprechpartner}
 $LANG{Vorname}
$LANG{Strasse}
 $LANG{Telefon}
$LANG{Land}
 $LANG{Fax}
$LANG{PLZ}
 $LANG{Ort}
$LANG{Email}
 $LANG{Angebote_per}

$LANG{Mitteilung}
); } $out %>