message_ok und message_error CSS-Styles eingefügt. Msg-Ausgabe etwas repariert. Hat...

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

index 5540b95557de98a7cbbf3b8d63dd8b85a4b153cc..20acf122c35646132eb6633c24e804ef36a7e680 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -257,16 +257,10 @@ sub new {
    my $db_charset   = $main::dbcharset;
    $db_charset    ||= Common::DEFAULT_CHARSET;
  
-  if ($self->{INPUT_ENCODING}) {
-    if (lc $self->{INPUT_ENCODING} ne lc $db_charset) {
-      require Text::Iconv;
-      my $iconv = Text::Iconv->new($self->{INPUT_ENCODING}, $db_charset);
+  my $encoding     = $self->{INPUT_ENCODING} || $db_charset;
+  delete $self->{INPUT_ENCODING};
  
-      _recode_recursively($iconv, $self);
-    }
-
-    delete $self->{INPUT_ENCODING};
-  }
+  _recode_recursively(SL::Iconv->new($encoding, $db_charset), $self);
  
    $self->{action}  =  lc $self->{action};
    $self->{action}  =~ s/( |-|,|\#)/_/g;
@@ -472,13 +466,13 @@ sub info {
  
      if (!$self->{header}) {
        $self->header;
-      print qq|
-      <body>|;
+      print qq|<body>|;
      }
  
      print qq|
-
-    <p><b>$msg</b>
+    <p class="message_ok"><b>$msg</b></p>
+    
+</body>
      |;
  
    } else {
@@ -1198,7 +1192,7 @@ sub parse_template {
    $main::lxdebug->enter_sub();
  
    my ($self, $myconfig, $userspath) = @_;
-  my ($template, $out);
+  my $out;
  
    local (*IN, *OUT);
  
@@ -1207,31 +1201,29 @@ sub parse_template {
  
    my $ext_for_format;
  
+  my $template_type;
    if ($self->{"format"} =~ /(opendocument|oasis)/i) {
-    $template       = OpenDocumentTemplate->new($self->{"IN"}, $self, $myconfig, $userspath);
+    $template_type  = 'OpenDocument';
      $ext_for_format = $self->{"format"} =~ m/pdf/ ? 'pdf' : 'odt';
  
    } elsif ($self->{"format"} =~ /(postscript|pdf)/i) {
      $ENV{"TEXINPUTS"} = ".:" . getcwd() . "/" . $myconfig->{"templates"} . ":" . $ENV{"TEXINPUTS"};
-    $template         = LaTeXTemplate->new($self->{"IN"}, $self, $myconfig, $userspath);
+    $template_type    = 'LaTeX';
      $ext_for_format   = 'pdf';
  
    } elsif (($self->{"format"} =~ /html/i) || (!$self->{"format"} && ($self->{"IN"} =~ /html$/i))) {
-    $template       = HTMLTemplate->new($self->{"IN"}, $self, $myconfig, $userspath);
+    $template_type  = 'HTML';
      $ext_for_format = 'html';
  
    } elsif (($self->{"format"} =~ /xml/i) || (!$self->{"format"} && ($self->{"IN"} =~ /xml$/i))) {
-    $template       = XMLTemplate->new($self->{"IN"}, $self, $myconfig, $userspath);
+    $template_type  = 'XML';
      $ext_for_format = 'xml';
  
-  } elsif ( $self->{"format"} =~ /elsterwinston/i ) {
-    $template = XMLTemplate->new($self->{"IN"}, $self, $myconfig, $userspath);
-
-  } elsif ( $self->{"format"} =~ /elstertaxbird/i ) {
-    $template = XMLTemplate->new($self->{"IN"}, $self, $myconfig, $userspath);
+  } elsif ( $self->{"format"} =~ /elster(?:winston|taxbird)/i ) {
+    $template_type = 'xml';
  
    } elsif ( $self->{"format"} =~ /excel/i ) {
-    $template = ExcelTemplate->new($self->{"IN"}, $self, $myconfig, $userspath);
+    $template_type  = 'Excel';
      $ext_for_format = 'xls';
  
    } elsif ( defined $self->{'format'}) {
@@ -1244,6 +1236,12 @@ sub parse_template {
      $self->error("Outputformat not defined: $self->{'format'}");
    }
  
+  my $template = SL::Template::create(type      => $template_type,
+                                      file_name => $self->{IN},
+                                      form      => $self,
+                                      myconfig  => $myconfig,
+                                      userspath => $userspath);
+
    # Copy the notes from the invoice/sales order etc. back to the variable "notes" because that is where most templates expect it to be.
    $self->{"notes"} = $self->{ $self->{"formname"} . "notes" };
  
@@ -1549,15 +1547,21 @@ sub datetonum {
  
  # Database routines used throughout
  
+sub _dbconnect_options {
+  my $self    = shift;
+  my $options = { pg_enable_utf8 => $::locale->is_utf8,
+                  @_ };
+
+  return $options;
+}
+
  sub dbconnect {
    $main::lxdebug->enter_sub(2);
  
    my ($self, $myconfig) = @_;
  
    # connect to database
-  my $dbh =
-    DBI->connect($myconfig->{dbconnect},
-                 $myconfig->{dbuser}, $myconfig->{dbpasswd})
+  my $dbh = DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options)
      or $self->dberror;
  
    # set db options
@@ -1576,9 +1580,7 @@ sub dbconnect_noauto {
    my ($self, $myconfig) = @_;
  
    # connect to database
-  my $dbh =
-    DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser},
-                 $myconfig->{dbpasswd}, { AutoCommit => 0 })
+  my $dbh = DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options(AutoCommit => 0))
      or $self->dberror;
  
    # set db options