X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPE.pm;h=5a23fb749c9254b2a5a6f118804a862e206d18c0;hb=b80a03a9cf7a249e771c5ce080970ce5131e10f0;hp=1532e79cee9d4041f3cbaab362c8716ecdb19822;hpb=07d71c33315605fcfc450d3b9abf0fd10e92bed5;p=kivitendo-erp.git

diff --git a/SL/PE.pm b/SL/PE.pm
index 1532e79ce..5a23fb749 100644
--- a/SL/PE.pm
+++ b/SL/PE.pm
@@ -136,7 +136,7 @@ sub save_project {
   # connect to database
   my $dbh = $form->dbconnect($myconfig);
 
-  map { $form->{$_} =~ s/\'/\'\'/g } (projectnumber, description);
+  map { $form->{$_} =~ s/\'/\'\'/g } qw(projectnumber description);
 
   if ($form->{id}) {
     $query = qq|UPDATE project SET
@@ -218,8 +218,7 @@ sub save_partsgroup {
   # connect to database
   my $dbh = $form->dbconnect($myconfig);
 
-  map { $form->{$_} =~ s/\'/\'\'/g } (partsgroup);
-
+  map { $form->{$_} =~ s/\'/\'\'/g } qw(partsgroup);
   $form->{discount} /= 100;
 
   if ($form->{id}) {
@@ -332,7 +331,6 @@ sub pricegroups {
 	        WHERE $where
 		ORDER BY $sortorder|;
   }
-print STDERR "asdfasdf-$query\n";
 
   $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
@@ -361,7 +359,7 @@ sub save_pricegroup {
   # connect to database
   my $dbh = $form->dbconnect($myconfig);
 
-  map { $form->{$_} =~ s/\'/\'\'/g } (pricegroup);
+  map { $form->{$_} =~ s/\'/\'\'/g } qw(pricegroup);
 
   $form->{discount} /= 100;
 
@@ -385,7 +383,7 @@ sub save_pricegroup {
 #
 sub get_pricegroup {
   $main::lxdebug->enter_sub();
-print STDERR "PE.pm-get_pricegroup\n";
+
   my ($self, $myconfig, $form) = @_;
 
   # connect to database
@@ -416,7 +414,7 @@ print STDERR "PE.pm-get_pricegroup\n";
   $sth->finish;
 
   $dbh->disconnect;
-#print (STDERR "   ", Dumper($form));
+
   $main::lxdebug->leave_sub();
 }