Kleine HTML-Syntax-Korrektur

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

index 61e5f68..a11122c 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -45,6 +45,7 @@ use CGI::Ajax;
  use SL::DBUtils;
  use SL::Menu;
  use SL::User;
+use SL::Common;
  use CGI;
  
  sub _input_to_hash {
@@ -257,6 +258,8 @@ sub hide_form {
  sub error {
    $main::lxdebug->enter_sub();
  
+  $main::lxdebug->show_backtrace();
+
    my ($self, $msg) = @_;
    if ($ENV{HTTP_USER_AGENT}) {
      $msg =~ s/\n/<br>/g;
@@ -352,7 +355,7 @@ sub header {
      return;
    }
  
-  my ($stylesheet, $favicon, $charset);
+  my ($stylesheet, $favicon);
  
    if ($ENV{HTTP_USER_AGENT}) {
  
@@ -370,11 +373,8 @@ sub header {
    |;
      }
  
-    if ($self->{charset}) {
-      $charset =
-        qq|<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=$self->{charset}">
-  |;
-    }
+    my $db_charset = $main::dbcharset ? $main::dbcharset : Common::DEFAULT_CHARSET;
+
      if ($self->{landscape}) {
        $pagelayout = qq|<style type="text/css">
                          \@page { size:landscape; }
@@ -404,7 +404,7 @@ sub header {
      foreach $item (@ { $self->{AJAX} }) {
        $ajax .= $item->show_javascript();
      }
-    print qq|Content-Type: text/html; charset=$self->{charset};
+    print qq|Content-Type: text/html; charset=${db_charset};
  
  <html>
  <head>
@@ -412,7 +412,7 @@ sub header {
    $stylesheet
    $pagelayout
    $favicon
-  $charset
+  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=${db_charset}">
    $jsscript
    $ajax
  
@@ -508,7 +508,6 @@ sub parse_html_template {
      $additional_params->{"myconfig_jsc_dateformat"} = $jsc_dateformat;
    }
  
-  $additional_params->{"conf_jscalendar"} = $main::jscalendar;
    $additional_params->{"conf_lizenzen"} = $main::lizenzen;
    $additional_params->{"conf_latex_templates"} = $main::latex;
    $additional_params->{"conf_opendocument_templates"} = $main::opendocument_templates;
@@ -731,7 +730,9 @@ sub parse_template {
    $main::lxdebug->enter_sub();
  
    my ($self, $myconfig, $userspath) = @_;
-  my $template;
+  my ($template, $out);
+
+  local (*IN, *OUT);
  
    $self->{"cwd"} = getcwd();
    $self->{"tmpdir"} = $self->{cwd} . "/${userspath}";
@@ -774,7 +775,19 @@ sub parse_template {
    # OUT is used for the media, screen, printer, email
    # for postscript we store a copy in a temporary file
    my $fileid = time;
-  $self->{tmpfile} ||= "$userspath/${fileid}.$self->{IN}";
+  my $prepend_userspath;
+
+  if (!$self->{tmpfile}) {
+    $self->{tmpfile}   = "${fileid}.$self->{IN}";
+    $prepend_userspath = 1;
+  }
+
+  $prepend_userspath = 1 if substr($self->{tmpfile}, 0, length $userspath) eq $userspath;
+
+  $self->{tmpfile} =~ s|.*/||;
+  $self->{tmpfile} =~ s/[^a-zA-Z0-9\._\ \-]//g;
+  $self->{tmpfile} = "$userspath/$self->{tmpfile}" if $prepend_userspath;
+
    if ($template->uses_temp_file() || $self->{media} eq 'email') {
      $out = $self->{OUT};
      $self->{OUT} = ">$self->{tmpfile}";
@@ -803,7 +816,8 @@ sub parse_template {
        my $mail = new Mailer;
  
        map { $mail->{$_} = $self->{$_} }
-        qw(cc bcc subject message version format charset);
+        qw(cc bcc subject message version format);
+      $mail->{charset} = $main::dbcharset ? $main::dbcharset : Common::DEFAULT_CHARSET;
        $mail->{to} = $self->{EMAIL_RECIPIENT} ? $self->{EMAIL_RECIPIENT} : $self->{email};
        $mail->{from}   = qq|"$myconfig->{name}" <$myconfig->{email}>|;
        $mail->{fileid} = "$fileid.";
@@ -840,7 +854,7 @@ sub parse_template {
  
        }
  
-      my $err = $mail->send($out);
+      my $err = $mail->send();
        $self->error($self->cleanup . "$err") if ($err);
  
      } else {
@@ -861,7 +875,9 @@ sub parse_template {
            open(OUT, $self->{OUT})
              or $self->error($self->cleanup . "$self->{OUT} : $!");
          } else {
-          $self->{attachment_filename} = $self->generate_attachment_filename();
+          $self->{attachment_filename} = ($self->{attachment_filename}) 
+                                       ? $self->{attachment_filename}
+                                       : $self->generate_attachment_filename();
  
            # launch application
            print qq|Content-Type: | . $template->get_mime_type() . qq|
@@ -1645,6 +1661,20 @@ $main::lxdebug->enter_sub();
    $main::lxdebug->leave_sub();
  }
  
+sub _get_payments {
+$main::lxdebug->enter_sub();
+
+  my ($self, $dbh, $key) = @_;
+
+  $key = "all_payments" unless ($key);
+
+  my $query = qq|SELECT * FROM payment_terms ORDER BY id|;
+ 
+  $self->{$key} = selectall_hashref_query($self, $dbh, $query);
+
+  $main::lxdebug->leave_sub();
+}
+
  sub _get_customers {
    $main::lxdebug->enter_sub();
  
@@ -1652,7 +1682,7 @@ sub _get_customers {
  
    $key = "all_customers" unless ($key);
  
-  my $query = qq|SELECT * FROM customer LIMIT $main::myconfig{vclimit}|;
+  my $query = qq|SELECT * FROM customer|;
  
    $self->{$key} = selectall_hashref_query($self, $dbh, $query);
  
@@ -1666,7 +1696,7 @@ sub _get_vendors {
  
    $key = "all_vendors" unless ($key);
  
-  my $query = qq|SELECT * FROM vendor|; # LIMIT $main::myconfig{vclimit}|;
+  my $query = qq|SELECT * FROM vendor|;
  
    $self->{$key} = selectall_hashref_query($self, $dbh, $query);
  
@@ -1742,6 +1772,10 @@ sub get_lists {
    if($params{"vendors"}) {
      $self->_get_vendors($dbh, $params{"vendors"});
    }
+  
+  if($params{"payments"}) {
+    $self->_get_payments($dbh, $params{"payments"});
+  }
  
    $dbh->disconnect();