Bugfix: Kreditorenbuchungen Bemerkungen gingen beim Update verloren.
authorSven Schöling <s.schoeling@linet-services.de>
Tue, 16 Jun 2009 10:30:31 +0000 (10:30 +0000)
committerSven Schöling <s.schoeling@linet-services.de>
Tue, 16 Jun 2009 10:30:31 +0000 (10:30 +0000)
bin/mozilla/ap.pl

index 39db0fe..33d2eee 100644 (file)
@@ -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;