Debugmeldungen...

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index e7e8b13..9a1e3ab 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -981,10 +981,8 @@ sub check_form {
 
   # remove any makes or model rows
   if ($form->{item} eq 'part') {
-    $lxdebug->message(0, "a1 $form->{sellprice}");
     map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
       qw(listprice sellprice lastcost weight rop);
-    $lxdebug->message(0, "a2 $form->{sellprice}");
 
     @flds = (make, model);
     for my $i (1 .. ($form->{makemodel_rows})) {
@@ -997,9 +995,7 @@ sub check_form {
       }
     }
 
-    $lxdebug->message(0, "a3 $form->{sellprice}");
     $form->redo_rows(\@flds, \@a, $count, $form->{makemodel_rows});
-    $lxdebug->message(0, "a4 $form->{sellprice}");
     $form->{makemodel_rows} = $count;
 
   } elsif ($form->{item} eq 'assembly') {
@@ -1080,7 +1076,6 @@ sub check_form {
     }
   }
 
-    $lxdebug->message(0, "a5 $form->{sellprice}");
   #sk
   # if pricegroups
   if (   $form->{type} =~ (/sales_quotation/)
@@ -1095,10 +1090,8 @@ sub check_form {
     set_pricegroup($form->{rowcount});
 
   }
-    $lxdebug->message(0, "a6 $form->{sellprice}");
 
   &display_form;
-    $lxdebug->message(0, "a7 $form->{sellprice}");
 
   $lxdebug->leave_sub();
 }