X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f0bca038e659057fd046358b9201b5a374dc2d25..ba52ee60:/bin/mozilla/io.pl?ds=inline

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 3afcbd1dc..413a7f6d0 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -225,6 +225,10 @@ sub display_row {
       qw(qty discount sellprice lastcost price_new price_old)
         unless ($form->{simple_save});
 
+    if ($form->{"prices_$i"} && ($form->{"new_pricegroup_$i"} != $form->{"old_pricegroup_$i"})) {
+      $form->{"sellprice_$i"} = $form->{"price_new_$i"};
+    }
+
 # unit begin
     $form->{"unit_old_$i"}      ||= $form->{"unit_$i"};
     $form->{"selected_unit_$i"} ||= $form->{"unit_$i"};