X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPE.pm;h=57c9c67afa6c731a077739571ec29276d68cc463;hb=721b23504bed9450ad7c77e450aba1d60a1597aa;hp=1532e79cee9d4041f3cbaab362c8716ecdb19822;hpb=195883fdfd3b10f329036767f027baa6e7c402b9;p=kivitendo-erp.git diff --git a/SL/PE.pm b/SL/PE.pm index 1532e79ce..57c9c67af 100644 --- a/SL/PE.pm +++ b/SL/PE.pm @@ -332,7 +332,6 @@ sub pricegroups { WHERE $where ORDER BY $sortorder|; } -print STDERR "asdfasdf-$query\n"; $sth = $dbh->prepare($query); $sth->execute || $form->dberror($query); @@ -385,7 +384,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 +415,7 @@ print STDERR "PE.pm-get_pricegroup\n"; $sth->finish; $dbh->disconnect; -#print (STDERR " ", Dumper($form)); + $main::lxdebug->leave_sub(); }