X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FProjects.pm;h=c25e75ae3264e9babffe251a7c716be8a0727190;hb=89c9ff022d3f13e27ba6bda085df15707fcfb0eb;hp=afbc5a3d761876491629649041b2598805b7dd0d;hpb=cd92cf1c19785cdcd5812735185676c9ad982175;p=kivitendo-erp.git

diff --git a/SL/Projects.pm b/SL/Projects.pm
index afbc5a3d7..c25e75ae3 100644
--- 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();