From e53cae0004bd4cfe8077745c8f05c94a2645ca5e Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 12 Feb 2007 11:53:19 +0000
Subject: [PATCH] Bei der Ausgabe der oldprojectnumber_$i den aktuellen Wert
 benutzen, damit der Rest des Programmes den nicht manuell setzen muss.

---
 bin/mozilla/io.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 5588939f8..e7e8b1337 100644
--- 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"}">
-		  <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/) {
@@ -981,8 +981,10 @@ 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})) {
@@ -995,7 +997,9 @@ 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') {
@@ -1076,6 +1080,7 @@ sub check_form {
     }
   }
 
+    $lxdebug->message(0, "a5 $form->{sellprice}");
   #sk
   # if pricegroups
   if (   $form->{type} =~ (/sales_quotation/)
@@ -1090,8 +1095,10 @@ sub check_form {
     set_pricegroup($form->{rowcount});
 
   }
+    $lxdebug->message(0, "a6 $form->{sellprice}");
 
   &display_form;
+    $lxdebug->message(0, "a7 $form->{sellprice}");
 
   $lxdebug->leave_sub();
 }
-- 
2.20.1