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

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