Die Funktionen zum Bearbeiten von HTML-, LaTeX-Vorlagen und Stylesheets neu geschrieben.

[kivitendo-erp.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 85370dd4094ca822bde05e6c8bdeb3573b4ffad2..1912f7560f749535322738bf3713897aae05fcdc 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1469,7 +1469,7 @@ sub _get_printers {
 
   $key = "all_printers" unless ($key);
 
 
   $key = "all_printers" unless ($key);
 

-  my $query = qq|SELECT id, printer_description, printer_command FROM printers|;
+  my $query = qq|SELECT id, printer_description, printer_command, template_code FROM printers|;

 
   $self->{$key} = selectall_hashref_query($self, $dbh, $query);
 
 
   $self->{$key} = selectall_hashref_query($self, $dbh, $query);
 


@@ -1538,6 +1538,20 @@ sub _get_business_types {
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }
 

+sub _get_languages {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $dbh, $key) = @_;
+
+  $key = "all_languages" unless ($key);
+
+  my $query = qq|SELECT * FROM language ORDER BY id|;
+
+  $self->{$key} = selectall_hashref_query($self, $dbh, $query);
+
+  $main::lxdebug->leave_sub();
+}
+

 sub get_lists {
   $main::lxdebug->enter_sub();
 
 sub get_lists {
   $main::lxdebug->enter_sub();
 


@@ -1568,6 +1582,10 @@ sub get_lists {
     $self->_get_printers($dbh, $params{"printers"});
   }
 
     $self->_get_printers($dbh, $params{"printers"});
   }
 

+  if ($params{"languages"}) {
+    $self->_get_languages($dbh, $params{"languages"});
+  }
+

   if ($params{"charts"}) {
     $self->_get_charts($dbh, $params{"charts"});
   }
   if ($params{"charts"}) {
     $self->_get_charts($dbh, $params{"charts"});
   }