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

diff --git a/SL/Projects.pm b/SL/Projects.pm
index afbc5a3d7..d3df51fdd 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",
@@ -102,7 +104,7 @@ sub search_projects {
   }
 
 
-  my $where = 'WHERE ' . join(' AND ', map { "($_)" } @filters) if (scalar @filters);
+  my $where = @filters ? 'WHERE ' . join(' AND ', map { "($_)" } @filters) : '';
 
   my $sortorder =  $params{sort} ? $params{sort} : "projectnumber";
   $sortorder    =~ s/[^a-z_]//g;
@@ -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();