From 029d99552b546fdf92fba88cdbc279b723e4f3d1 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 16 Jun 2009 10:30:31 +0000
Subject: [PATCH] Bugfix: Kreditorenbuchungen Bemerkungen gingen beim Update
 verloren.

---
 bin/mozilla/ap.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 39db0fe22..33d2eee3f 100644
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -893,7 +893,7 @@ sub update {
   $form->{invdate} = $form->{transdate};
   my %saved_variables = map +( $_ => $form->{$_} ), qw(AP AP_amount_1 taxchart_1);
 
-  &check_name("vendor");
+  my $vendor_changed = &check_name("vendor");
 
   $form->{AP} = $saved_variables{AP};
   if ($saved_variables{AP_amount_1} =~ m/.--./) {
@@ -928,7 +928,7 @@ sub update {
   $form->{oldtotalpaid} = $totalpaid;
 
   # notes
-  $form->{notes} = $form->{intnotes};
+  $form->{notes} = $form->{intnotes} if $vendor_changed;
 
   &display_form;
 
-- 
2.39.5