Wo und wie muß ich if else denn einbauen???
Code
sub success_page {
my ($self, $date) = @_;
if ($self->{FormConfig}{'redirect'}) {
print $self->cgi_object->redirect( $self->{FormConfig}{'redirect'} );
}
else {
$self->output_cgi_html_header;
$self->success_page_html_preamble($date);
$self->success_page_fields;
$self->success_page_footer;
}
}
=item success_page_html_preamble ( DATE )
Outputs the start of the HTML for the success page, not including the
standard HTML headers dealt with by output_cgi_html_header().
=cut
sub success_page_html_preamble {
my ($self, $date) = @_;
my $title = $self->escape_html( $self->{FormConfig}{'title'} || 'Danke' );
my $torecipient = 'to ' . $self->escape_html($self->{FormConfig}{'recipient'});
$torecipient = '' if $self->{Hide_Recipient};
my $attr = $self->body_attributes;
print <<END;
<head>
<title>$title</title>
END
$self->output_style_element;
print <<END;
<style>
h1.title {
text-align : center;
}
</style>
</head>
<body $attr>
<h1 class="title">$title</h1>
<pMein Text</p>
<hr size="1" width="75%" /></p>
END
}
=item success_page_fields ()
Outputs success page HTML output for each input field.
=cut
Alles anzeigen