From 540030ff9826439d94f3f4292ab79b9be8795acc Mon Sep 17 00:00:00 2001
From: Bernd Blessmann <bibi@online.de>
Date: Wed, 11 Jan 2012 15:42:50 +0100
Subject: [PATCH] =?utf8?q?Bugfix=20f=C3=BCr=20=201648=20-=20bebuchte=20Kon?=
 =?utf8?q?ten=20sollten=20nicht=20in=20=C3=9Cberschriften=20umgewandelt=20?=
 =?utf8?q?werden=20k=C3=B6nnen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

wird jetzt auf der Oberfläche verhindert.
---
 bin/mozilla/am.pl                        | 22 ++++++----------------
 doc/changelog                            |  1 +
 templates/webpages/am/edit_accounts.html | 17 ++++++++++++++++-
 3 files changed, 23 insertions(+), 17 deletions(-)

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 997fd2c28..2dacb6f98 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -328,22 +328,11 @@ sub account_header {
   }
 
   # preselection chart type
-  my $select_charttype = q{};
-
-  my %charttype = (
-      'A'  => $locale->text('Account'),
-      'H'  => $locale->text('Heading'),
-  );
-
-  foreach my $item ( sort({ $a <=> $b } keys %charttype) ) {
-    if ($item eq $form->{charttype}) {
-      $select_charttype .= qq|<option value="$item" selected="selected">$charttype{$item}\n|;
-
-    } else {
-      $select_charttype .= qq|<option value="$item">$charttype{$item}\n|;
-    }
+  my @all_charttypes = ({'name' => $locale->text('Account'), 'value' => 'A'},
+                        {'name' => $locale->text('Heading'), 'value' => 'H'},
+    );
+  my $selected_charttype = $form->{charttype};
 
-  }
 
   # account where AR_tax or AP_tax is set are not orphaned if they are used as
   # tax-o-matic account
@@ -362,7 +351,8 @@ sub account_header {
     ChartTypeIsAccount         => $ChartTypeIsAccount,
     AccountIsPosted            => $AccountIsPosted,
     select_category            => $select_category,
-    select_charttype           => $select_charttype,
+    all_charttypes             => \@all_charttypes,
+    selected_charttype         => $selected_charttype,
     select_bwa                 => $select_bwa,
     select_bilanz              => $select_bilanz,
     select_eur                 => $select_eur,
diff --git a/doc/changelog b/doc/changelog
index 28cb78637..c19e8c4c1 100644
--- a/doc/changelog
+++ b/doc/changelog
@@ -86,6 +86,7 @@
   - Bugfix 1760 - 1760: Bei einem Lieferschein wird die Abteilung nicht mitgespeichert
   - Bugfix 1752: Rechnung -> Druckvorschau ignoriert Änderung des Steuersatz beim Beleg
   - Bugfix 1708: Fehlender Übertrag der Lieferadresse von Angebot -> Auftragsbestätigung
+  - Bugfix 1648: bebuchte Konten sollten nicht in Überschriften umgewandelt werden können
 
 
 2011-06-15 - Release 2.6.3
diff --git a/templates/webpages/am/edit_accounts.html b/templates/webpages/am/edit_accounts.html
index bb8d48431..4a7503d85 100644
--- a/templates/webpages/am/edit_accounts.html
+++ b/templates/webpages/am/edit_accounts.html
@@ -60,10 +60,25 @@ window.onload = function() {
 
         </label>
       </td>
-      <td><select name="charttype">[% select_charttype %]</select></td>
+      <td>
+[% IF AccountIsPosted %]
+        [% L.select_tag('dummy_charttype',
+                        L.options_for_select(all_charttypes,
+                                             title => 'name', value => 'value',
+                                             default => selected_charttype),
+                        disabled => '1') %]
+        [% L.hidden_tag('charttype', selected_charttype) %]
+[% ELSE %]
+        [% L.select_tag('charttype',
+                        L.options_for_select(all_charttypes,
+                                             title => 'name', value => 'value',
+                                             default => selected_charttype)) %]
+[% END %]
+      </td>
     </tr>
   </table>
 </fieldset>
+
 <fieldset class="DEPENDS ON charttype BEING A">
   <legend>[% 'Account Type' | $T8 %]</legend>
   <select name="category" id="AccountType" class="DEPENDS ON charttype BEING A">
-- 
2.20.1