X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fam.pl;h=3cb5ac3d819a28b752c940ff6fa1abc0ce51f4fe;hb=b71b35308c2f7c628666e4a69e6c3b90cefc5ed0;hp=e6bf0fc753f4c5cff1af7d8aaf8245062ed18d04;hpb=031251fb29209279fd44f1e564a255753c4e6176;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index e6bf0fc75..3cb5ac3d8 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -194,7 +194,7 @@ sub account_header {
}
# Newaccount Folgekonto
- if (@{ $form->{NEWACCOUNT} }) {
+ if (@{ $form->{NEWACCOUNT} || [] }) {
if (!$form->{new_chart_valid}) {
$form->{selectnewaccount} = qq||;
}
@@ -727,7 +727,7 @@ sub list_department {
map { print "$column_data{$_}\n" } @column_index;
print qq|
-
+
|;
}
@@ -929,7 +929,7 @@ sub list_lead {
map { print "$column_header{$_}\n" } @column_index;
print qq|
-
+
|;
my ($i, %column_data);
@@ -939,17 +939,17 @@ sub list_lead {
$i %= 2;
print qq|
-
+
|;
-# $lead = $ref->{lead};
+# $lead = $ref->{lead};
$column_data{description} = qq|$ref->{lead} | |;
map { print "$column_data{$_}\n" } @column_index;
print qq|
-
+
|;
}
@@ -1163,7 +1163,7 @@ sub list_business {
map { print "$column_data{$_}\n" } @column_index;
print qq|
-
+
|;
}
@@ -1417,7 +1417,7 @@ sub list_language {
map { print "$column_data{$_}\n" } @column_index;
print qq|
-
+
|;
}
@@ -1769,7 +1769,7 @@ sub list_buchungsgruppe {
map { print "$column_data{$_}\n" } @column_index;
print qq|
-
+
|;
$row++;
@@ -1853,10 +1853,10 @@ sub buchungsgruppe_header {
if (!$main::eur) {
$linkaccounts = qq|
- | . $locale->text('Inventory') . qq| |
- |
-
-
|;
+ | . $locale->text('Inventory') . qq| |
+ |
+
+ |;
} else {
$linkaccounts = qq|
{inventory_accno_id}>|;
@@ -1864,28 +1864,28 @@ sub buchungsgruppe_header {
$linkaccounts .= qq|
-
- | . $locale->text('National Revenues') . qq| |
- |
-
-
- | . $locale->text('National Expenses') . qq| |
- |
-
|;
+
+ | . $locale->text('National Revenues') . qq| |
+ |
+
+
+ | . $locale->text('National Expenses') . qq| |
+ |
+
|;
if ($form->{id}) {
$form->{selectIC_income} =~ s/selected//g;
$form->{selectIC_income} =~ s/ value=\Q$form->{income_accno_id_1}\E/ value=$form->{income_accno_id_1} selected/;
$form->{selectIC_expense} =~ s/selected//g;
$form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_1}\E/ value=$form->{expense_accno_id_1} selected/;
}
- $linkaccounts .= qq|
- | . $locale->text('Revenues EU with UStId') . qq| |
- |
-
-
- | . $locale->text('Expenses EU with UStId') . qq| |
- |
-
|;
+ $linkaccounts .= qq|
+ | . $locale->text('Revenues EU with UStId') . qq| |
+ |
+
+
+ | . $locale->text('Expenses EU with UStId') . qq| |
+ |
+
|;
if ($form->{id}) {
$form->{selectIC_income} =~ s/selected//g;
@@ -1894,14 +1894,14 @@ sub buchungsgruppe_header {
$form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_2}\E/ value=$form->{expense_accno_id_2} selected/;
}
- $linkaccounts .= qq|
- | . $locale->text('Revenues EU without UStId') . qq| |
- |
-
-
- | . $locale->text('Expenses EU without UStId') . qq| |
- |
-
|;
+ $linkaccounts .= qq|
+ | . $locale->text('Revenues EU without UStId') . qq| |
+ |
+
+
+ | . $locale->text('Expenses EU without UStId') . qq| |
+ |
+
|;
if ($form->{id}) {
$form->{selectIC_income} =~ s/selected//g;
@@ -1910,14 +1910,14 @@ sub buchungsgruppe_header {
$form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_3}\E/ value=$form->{expense_accno_id_3} selected/;
}
- $linkaccounts .= qq|
- | . $locale->text('Foreign Revenues') . qq| |
- |
-
-
- | . $locale->text('Foreign Expenses') . qq| |
- |
-
+ $linkaccounts .= qq|
+ | . $locale->text('Foreign Revenues') . qq| |
+ |
+
+
+ | . $locale->text('Foreign Expenses') . qq| |
+ |
+
|;
@@ -2106,7 +2106,7 @@ sub list_printer {
map { print "$column_data{$_}\n" } @column_index;
print qq|
-
+
|;
}
@@ -2393,7 +2393,7 @@ sub list_payment {
map { print "$column_data{$_}\n" } @column_index;
print qq|
-
+
|;
$row++;
}
@@ -2787,10 +2787,10 @@ sub audit_control {
|