X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=02290c7b29c8617b1718830da64b3746acd09a31;hb=29fbefec2d08f8030848f09d249fc269ea877359;hp=c4f2a291d7f321f908f3a82d8634382ca0b71c30;hpb=63024c9f98f172ec904324fd0b6f9cc819ce7600;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index c4f2a291d..02290c7b2 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -36,6 +36,7 @@ use SL::CA;
use SL::Form;
use SL::User;
use SL::USTVA;
+use SL::Iconv;
use CGI::Ajax;
use CGI;
@@ -223,10 +224,11 @@ sub account_header {
30 => "Ausserordentlicher Aufwand",
31 => "Betriebliche Steuern");
foreach $item (sort({ $a <=> $b } keys(%eur))) {
+ my $text = H(SL::Iconv::convert("ISO-8859-15", $dbcharset, $eur{$item}));
if ($item == $form->{pos_eur}) {
- $select_eur .= qq|\n|;
+ $select_eur .= qq|\n|;
} else {
- $select_eur .= qq|\n|;
+ $select_eur .= qq|\n|;
}
}
@@ -256,10 +258,11 @@ sub account_header {
34 => 'Verr.kalk.Kosten',
35 => 'Steuern Eink.u.Ertr.');
foreach $item (sort({ $a <=> $b } keys %bwapos)) {
+ my $text = H(SL::Iconv::convert("ISO-8859-15", $dbcharset, $bwapos{$item}));
if ($item == $form->{pos_bwa}) {
- $select_bwa .= qq|