From c0249f11d53031726da0f26bb733a7e769cdff0c Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@lx-office-hosting.de>
Date: Tue, 28 Dec 2010 15:05:49 +0100
Subject: [PATCH] =?utf8?q?Vergessen=20is.pl=20f=C3=BCr=20Commit=200e0ff150?=
 =?utf8?q?52f7cb7ed1a2b04235a8a217da97a183=20(Standard-Umlaufverm=C3=B6gen?=
 =?utf8?q?skonto)=20hinzugef=C3=BCgt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bin/mozilla/is.pl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 9ec9becb8..a94a720f2 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -423,9 +423,17 @@ sub form_footer {
   $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
   $form->{paid_indices} = [ 1 .. $form->{paidaccounts} ];
 
+  # Standard Konto für Umlaufvermögen
+  my $accno_arap = IS->get_standard_accno_current_assets(\%myconfig, \%$form);
+
   for my $i (1 .. $form->{paidaccounts}) {
     $form->{"selectAR_paid_$i"} = $form->{selectAR_paid};
-    $form->{"selectAR_paid_$i"} =~ s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/;
+    if (!$form->{"AR_paid_$i"}) {
+      $form->{"selectAR_paid_$i"} =~ s/option>$accno_arap--(.*?)</option selected>$accno_arap--$1</;
+    } else {
+      $form->{"selectAR_paid_$i"} =~ s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/;
+    }
+
     $totalpaid += $form->{"paid_$i"};
   }
 
-- 
2.20.1