X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/7933b6bd762c5bac0f0a6bc401ede33c30ece67b..58b14f96d6a7aab3bad2ffac3f8930793cf15a09:/SL/PE.pm

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();
 }