X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d3160c04203753f81f6a8ce5321997b726312caf..ce8306e07de8e24ffab52feeeb311468f81e1d70:/SL/Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm
index 8a82587e9..d6cba7321 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -315,35 +315,13 @@ sub info {
my ($self, $msg) = @_;
if ($ENV{HTTP_USER_AGENT}) {
- $msg =~ s/\n/
/g;
-
- if (!$self->{header}) {
- $self->header;
- print qq||;
- }
-
- print qq|
- $msg
-
-
-
-
- |;
+ $self->header;
+ print $self->parse_html_template('generic/form_info', { message => $msg });
+ } elsif ($self->{info_function}) {
+ &{ $self->{info_function} }($msg);
} else {
-
- if ($self->{info_function}) {
- &{ $self->{info_function} }($msg);
- } else {
- print "$msg\n";
- }
+ print "$msg\n";
}
$main::lxdebug->leave_sub();