X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/548f4467739c9fea1addee0e0717a89e7be75429..1c0845108811070224404f367b0e7bee1d5bbe9e:/bin/mozilla/is.pl diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index 1a61ab2d4..b8eb07479 100644 --- 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||; #/show hhistory button @@ -199,11 +199,6 @@ 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}";