Merge branch 'master' of git@lx-office.linet-services.de:lx-office-erp

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

diff --git a/SL/Projects.pm b/SL/Projects.pm
index afbc5a3..c25e75a 100644 (file)
--- a/SL/Projects.pm
+++ b/SL/Projects.pm
@@ -39,6 +39,8 @@ use Data::Dumper;
 use SL::DBUtils;
 use SL::CVar;
 
+use strict;
+
 my %project_id_column_prefixes  = ("ar"              => "global",
                                    "ap"              => "global",
                                    "oe"              => "global",
@@ -178,7 +180,7 @@ sub save_project {
     $params{active} = 1;
   }
 
-  $query  = qq|UPDATE project SET projectnumber = ?, description = ?, active = ?
+  my $query  = qq|UPDATE project SET projectnumber = ?, description = ?, active = ?
                WHERE id = ?|;
 
   @values = ($params{projectnumber}, $params{description}, $params{active} ? 't' : 'f', conv_i($params{id}));
@@ -187,7 +189,8 @@ sub save_project {
   CVar->save_custom_variables('dbh'       => $dbh,
                               'module'    => 'Projects',
                               'trans_id'  => $params{id},
-                              'variables' => $form);
+                              'variables' => $form,
+                              'always_valid' => 1);
 
   $dbh->commit();