Merge der Änderungen zwischen https://ls-bs-si1.bs.linet-services.de/svn/prog/vendor...

[kivitendo-erp.git] / bin / mozilla / is.pl

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index b8eb074796eafdd9a55e86e03cc6c79e01fd42a9..1a61ab2d4705977df67566260f190e5fba90af52 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -79,7 +79,7 @@ sub add {
 
 sub edit {
   $lxdebug->enter_sub();
-
+  $form->{"Watchdog::paidaccounts"} = 1;
   # show history button
   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
   #/show hhistory button
@@ -199,6 +199,11 @@ sub invoice_links {
 
     if ($key eq "AR_paid") {
       for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {
+        $lxdebug->message(0, "link " . $form->{acc_trans}->{$key}->[$i - 1]->{link});
+        $lxdebug->dump(0, "...", $form->{acc_trans}->{$key}->[$i - 1]);
+        my $previous_links = { map { $_, 1 } split m/:/, $form->{acc_trans}->{$key}->[$i - 1]->{link} };
+        next if (!$previous_links->{AR});
+
         $form->{"AR_paid_$i"} =
           "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";