'templates' nicht aus %::myconfig, sondern aus Defaults-Tabelle holen

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

index 07702fbfc3acb68b331182fe7209dd853915d5ba..0246f232eb0896d94953352eb58d79b63f0a5bf1 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -53,6 +53,7 @@ use SL::CVar;
  use SL::DB;
  use SL::DBConnect;
  use SL::DBUtils;
  use SL::DB;
  use SL::DBConnect;
  use SL::DBUtils;
+use SL::DB::Default;
  use SL::DO;
  use SL::IC;
  use SL::IS;
  use SL::DO;
  use SL::IC;
  use SL::IS;
@@ -86,6 +87,17 @@ sub disconnect_standard_dbh {
    undef $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();
  
  sub new {
    $main::lxdebug->enter_sub();
  
@@ -101,10 +113,7 @@ sub new {
  
    bless $self, $type;
  
  
    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();
  
  
    $main::lxdebug->leave_sub();
  
@@ -307,35 +316,13 @@ sub info {
    my ($self, $msg) = @_;
  
    if ($ENV{HTTP_USER_AGENT}) {
    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 {
    } else {
-
-    if ($self->{info_function}) {
-      &{ $self->{info_function} }($msg);
-    } else {
-      print "$msg\n";
-    }
+    print "$msg\n";
    }
  
    $main::lxdebug->leave_sub();
    }
  
    $main::lxdebug->leave_sub();
@@ -1373,8 +1360,7 @@ sub dbconnect {
    my ($self, $myconfig) = @_;
  
    # connect to database
    my ($self, $myconfig) = @_;
  
    # connect to database
-  my $dbh = SL::DBConnect->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, SL::DBConnect->get_options)
-    or $self->dberror;
+  my $dbh = SL::DBConnect->connect or $self->dberror;
  
    # set db options
    if ($myconfig->{dboptions}) {
  
    # set db options
    if ($myconfig->{dboptions}) {
@@ -1392,8 +1378,7 @@ sub dbconnect_noauto {
    my ($self, $myconfig) = @_;
  
    # connect to database
    my ($self, $myconfig) = @_;
  
    # connect to database
-  my $dbh = SL::DBConnect->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, SL::DBConnect->get_options(AutoCommit => 0))
-    or $self->dberror;
+  my $dbh = SL::DBConnect->connect(SL::DBConnect->get_connect_args(AutoCommit => 0)) or $self->dberror;
  
    # set db options
    if ($myconfig->{dboptions}) {
  
    # set db options
    if ($myconfig->{dboptions}) {
@@ -3384,7 +3369,9 @@ sub restore_vars {
  sub prepare_for_printing {
    my ($self) = @_;
  
  sub prepare_for_printing {
    my ($self) = @_;
  
-  $self->{templates} ||= $::myconfig{templates};
+  my $defaults         = SL::DB::Default->get;
+
+  $self->{templates} ||= $defaults->templates;
    $self->{formname}  ||= $self->{type};
    $self->{media}     ||= 'email';
  
    $self->{formname}  ||= $self->{type};
    $self->{media}     ||= 'email';
  
@@ -3436,7 +3423,7 @@ sub prepare_for_printing {
    }
  
    my $printer_code    = $self->{printer_code} ? '_' . $self->{printer_code} : '';
    }
  
    my $printer_code    = $self->{printer_code} ? '_' . $self->{printer_code} : '';
-  my $email_extension = -f "$::myconfig{templates}/$self->{formname}_email${language}.${extension}" ? '_email' : '';
+  my $email_extension = -f ($defaults->templates . "/$self->{formname}_email${language}.${extension}") ? '_email' : '';
    $self->{IN}         = "$self->{formname}${email_extension}${language}${printer_code}.${extension}";
  
    # Format dates.
    $self->{IN}         = "$self->{formname}${email_extension}${language}${printer_code}.${extension}";
  
    # Format dates.