Mandantenkonfiguration: Felder bearbeiten können, die zuvor nur in myconfig standen

[mfinanz.git] / SL / Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm

index 8a82587e99e901e0618551905d9b97ebe396b3e4..d6cba73213c01f82b89bf00120f7ba4869abf7ef 100644 (file)
--- 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/<br>/g;
-
-    if (!$self->{header}) {
-      $self->header;
-      print qq|<body>|;
-    }
-
-    print qq|
-    <p class="message_ok"><b>$msg</b></p>
-
-    <script type="text/javascript">
-    <!--
-    // If JavaScript is enabled, the whole thing will be reloaded.
-    // The reason is: When one changes his menu setup (HTML / CSS ...)
-    // it now loads the correct code into the browser instead of do nothing.
-    setTimeout("top.frames.location.href='login.pl'",500);
-    //-->
-    </script>
-
-</body>
-    |;
+    $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();