Bei der Ausgabe der oldprojectnumber_$i den aktuellen Wert benutzen, damit der Rest...

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 5588939f8a74805953fa0d3810eb3a3803ec9891..e7e8b13373ea3aa4d2a01a4e37c931aa688342db 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -488,7 +488,7 @@ sub display_row {
 
     print qq|
           <b>$projectnumber</b>&nbsp;<input name="projectnumber_$i" size=10 value="$form->{"projectnumber_$i"}">
 
     print qq|
           <b>$projectnumber</b>&nbsp;<input name="projectnumber_$i" size=10 value="$form->{"projectnumber_$i"}">

-                 <input type=hidden name="oldprojectnumber_$i" value="$form->{"oldprojectnumber_$i"}">
+                 <input type=hidden name="oldprojectnumber_$i" value="$form->{"projectnumber_$i"}">

                  <input type=hidden name="project_id_$i" value="$form->{"project_id_$i"}">
 |;
     if ($form->{type} eq 'invoice' or $form->{type} =~ /order/) {
                  <input type=hidden name="project_id_$i" value="$form->{"project_id_$i"}">
 |;
     if ($form->{type} eq 'invoice' or $form->{type} =~ /order/) {


@@ -981,8 +981,10 @@ sub check_form {
 
   # remove any makes or model rows
   if ($form->{item} eq 'part') {
 
   # 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);
     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})) {
 
     @flds = (make, model);
     for my $i (1 .. ($form->{makemodel_rows})) {


@@ -995,7 +997,9 @@ sub check_form {
       }
     }
 
       }
     }
 

+    $lxdebug->message(0, "a3 $form->{sellprice}");

     $form->redo_rows(\@flds, \@a, $count, $form->{makemodel_rows});
     $form->redo_rows(\@flds, \@a, $count, $form->{makemodel_rows});

+    $lxdebug->message(0, "a4 $form->{sellprice}");

     $form->{makemodel_rows} = $count;
 
   } elsif ($form->{item} eq 'assembly') {
     $form->{makemodel_rows} = $count;
 
   } elsif ($form->{item} eq 'assembly') {


@@ -1076,6 +1080,7 @@ sub check_form {
     }
   }
 
     }
   }
 

+    $lxdebug->message(0, "a5 $form->{sellprice}");

   #sk
   # if pricegroups
   if (   $form->{type} =~ (/sales_quotation/)
   #sk
   # if pricegroups
   if (   $form->{type} =~ (/sales_quotation/)


@@ -1090,8 +1095,10 @@ sub check_form {
     set_pricegroup($form->{rowcount});
 
   }
     set_pricegroup($form->{rowcount});
 
   }

+    $lxdebug->message(0, "a6 $form->{sellprice}");

 
   &display_form;
 
   &display_form;

+    $lxdebug->message(0, "a7 $form->{sellprice}");

 
   $lxdebug->leave_sub();
 }
 
   $lxdebug->leave_sub();
 }