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 330799766119ae84e94f0e69d49d0e0ef20a8466..d6cba73213c01f82b89bf00120f7ba4869abf7ef 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -86,6 +86,17 @@ sub disconnect_standard_dbh {
    undef $standard_dbh;
  }
  
+sub read_version {
+  my ($self) = @_;
+
+  open VERSION_FILE, "VERSION";                 # New but flexible code reads version from VERSION-file
+  my $version =  <VERSION_FILE>;
+  $version    =~ s/[^0-9A-Za-z\.\_\-]//g; # only allow numbers, letters, points, underscores and dashes. Prevents injecting of malicious code.
+  close VERSION_FILE;
+
+  return $version;
+}
+
  sub new {
    $main::lxdebug->enter_sub();
  
@@ -101,10 +112,7 @@ sub new {
  
    bless $self, $type;
  
-  open VERSION_FILE, "VERSION";                 # New but flexible code reads version from VERSION-file
-  $self->{version} =  <VERSION_FILE>;
-  close VERSION_FILE;
-  $self->{version}  =~ s/[^0-9A-Za-z\.\_\-]//g; # only allow numbers, letters, points, underscores and dashes. Prevents injecting of malicious code.
+  $self->{version} = $self->read_version;
  
    $main::lxdebug->leave_sub();
  
@@ -307,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();