Revision 63024c9f
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 1509 | 1509 |
. qq|</th>|; |
| 1510 | 1510 |
$column_header{income_accno_0} =
|
| 1511 | 1511 |
qq|<th class=listheading>| |
| 1512 |
. $locale->text('Erl?se Inland')
|
|
| 1512 |
. $locale->text('National Revenues')
|
|
| 1513 | 1513 |
. qq|</th>|; |
| 1514 | 1514 |
$column_header{expense_accno_0} =
|
| 1515 | 1515 |
qq|<th class=listheading>| |
| 1516 |
. $locale->text('Aufwand Inland')
|
|
| 1516 |
. $locale->text('National Expenses')
|
|
| 1517 | 1517 |
. qq|</th>|; |
| 1518 | 1518 |
$column_header{income_accno_1} =
|
| 1519 | 1519 |
qq|<th class=listheading>| |
| 1520 |
. $locale->text('Erl?se EU m. UStId')
|
|
| 1520 |
. $locale->text('Revenues EU with UStId')
|
|
| 1521 | 1521 |
. qq|</th>|; |
| 1522 | 1522 |
$column_header{expense_accno_1} =
|
| 1523 | 1523 |
qq|<th class=listheading>| |
| 1524 |
. $locale->text('Aufwand EU m. UStId')
|
|
| 1524 |
. $locale->text('Expenses EU with UStId')
|
|
| 1525 | 1525 |
. qq|</th>|; |
| 1526 | 1526 |
$column_header{income_accno_2} =
|
| 1527 | 1527 |
qq|<th class=listheading>| |
| 1528 |
. $locale->text('Erl?se EU o. UStId')
|
|
| 1528 |
. $locale->text('Revenues EU without UStId')
|
|
| 1529 | 1529 |
. qq|</th>|; |
| 1530 | 1530 |
$column_header{expense_accno_2} =
|
| 1531 | 1531 |
qq|<th class=listheading>| |
| 1532 |
. $locale->text('Aufwand EU o. UStId')
|
|
| 1532 |
. $locale->text('Expenses EU without UStId')
|
|
| 1533 | 1533 |
. qq|</th>|; |
| 1534 | 1534 |
$column_header{income_accno_3} =
|
| 1535 | 1535 |
qq|<th class=listheading>| |
| 1536 |
. $locale->text('Erl?se Ausland')
|
|
| 1536 |
. $locale->text('Foreign Revenues')
|
|
| 1537 | 1537 |
. qq|</th>|; |
| 1538 | 1538 |
$column_header{expense_accno_3} =
|
| 1539 | 1539 |
qq|<th class=listheading>| |
| 1540 |
. $locale->text('Aufwand Ausland')
|
|
| 1540 |
. $locale->text('Foreign Expenses')
|
|
| 1541 | 1541 |
. qq|</th>|; |
| 1542 | 1542 |
$form->header; |
| 1543 | 1543 |
|
| ... | ... | |
| 1658 | 1658 |
|
| 1659 | 1659 |
$form->{title} = $locale->text("$form->{title} Buchungsgruppe");
|
| 1660 | 1660 |
|
| 1661 |
# $locale->text('Buchungsgruppe hinzuf?gen')
|
|
| 1662 |
# $locale->text('Buchungsgruppe bearbeiten')
|
|
| 1661 |
# $locale->text('Add Accounting Group')
|
|
| 1662 |
# $locale->text('Edit Accounting Group')
|
|
| 1663 | 1663 |
|
| 1664 | 1664 |
my ($acc_inventory, $acc_income, $acc_expense) = ({}, {}, {});
|
| 1665 | 1665 |
my %acc_type_map = ( |
| ... | ... | |
| 1709 | 1709 |
|
| 1710 | 1710 |
$linkaccounts .= qq| |
| 1711 | 1711 |
<tr> |
| 1712 |
<th align=right>| . $locale->text('Erl?se Inland') . qq|</th>
|
|
| 1712 |
<th align=right>| . $locale->text('National Revenues') . qq|</th>
|
|
| 1713 | 1713 |
<td><select name=income_accno_id_0>$form->{selectIC_income}</select></td>
|
| 1714 | 1714 |
</tr> |
| 1715 | 1715 |
<tr> |
| 1716 |
<th align=right>| . $locale->text('Aufwand Inland') . qq|</th>
|
|
| 1716 |
<th align=right>| . $locale->text('National Expenses') . qq|</th>
|
|
| 1717 | 1717 |
<td><select name=expense_accno_id_0>$form->{selectIC_expense}</select></td>
|
| 1718 | 1718 |
</tr>|; |
| 1719 | 1719 |
if ($form->{id}) {
|
| ... | ... | |
| 1723 | 1723 |
$form->{selectIC_expense} =~ s/ value=$form->{expense_accno_id_1}/ value=$form->{expense_accno_id_1} selected/;
|
| 1724 | 1724 |
} |
| 1725 | 1725 |
$linkaccounts .= qq| <tr> |
| 1726 |
<th align=right>| . $locale->text('Erl?se EU m. UStId') . qq|</th>
|
|
| 1726 |
<th align=right>| . $locale->text('Revenues EU with UStId') . qq|</th>
|
|
| 1727 | 1727 |
<td><select name=income_accno_id_1>$form->{selectIC_income}</select></td>
|
| 1728 | 1728 |
</tr> |
| 1729 | 1729 |
<tr> |
| 1730 |
<th align=right>| . $locale->text('Aufwand EU m UStId') . qq|</th>
|
|
| 1730 |
<th align=right>| . $locale->text('Expenses EU with UStId') . qq|</th>
|
|
| 1731 | 1731 |
<td><select name=expense_accno_id_1>$form->{selectIC_expense}</select></td>
|
| 1732 | 1732 |
</tr>|; |
| 1733 | 1733 |
|
| ... | ... | |
| 1739 | 1739 |
} |
| 1740 | 1740 |
|
| 1741 | 1741 |
$linkaccounts .= qq| <tr> |
| 1742 |
<th align=right>| . $locale->text('Erl?se EU o. UStId') . qq|</th>
|
|
| 1742 |
<th align=right>| . $locale->text('Revenues EU without UStId') . qq|</th>
|
|
| 1743 | 1743 |
<td><select name=income_accno_id_2>$form->{selectIC_income}</select></td>
|
| 1744 | 1744 |
</tr> |
| 1745 | 1745 |
<tr> |
| 1746 |
<th align=right>| . $locale->text('Aufwand EU o. UStId') . qq|</th>
|
|
| 1746 |
<th align=right>| . $locale->text('Expenses EU without UStId') . qq|</th>
|
|
| 1747 | 1747 |
<td><select name=expense_accno_id_2>$form->{selectIC_expense}</select></td>
|
| 1748 | 1748 |
</tr>|; |
| 1749 | 1749 |
|
| ... | ... | |
| 1755 | 1755 |
} |
| 1756 | 1756 |
|
| 1757 | 1757 |
$linkaccounts .= qq| <tr> |
| 1758 |
<th align=right>| . $locale->text('Erl?se Ausland') . qq|</th>
|
|
| 1758 |
<th align=right>| . $locale->text('Foreign Revenues') . qq|</th>
|
|
| 1759 | 1759 |
<td><select name=income_accno_id_3>$form->{selectIC_income}</select></td>
|
| 1760 | 1760 |
</tr> |
| 1761 | 1761 |
<tr> |
| 1762 |
<th align=right>| . $locale->text('Aufwand Ausland') . qq|</th>
|
|
| 1762 |
<th align=right>| . $locale->text('Foreign Expenses') . qq|</th>
|
|
| 1763 | 1763 |
<td><select name=expense_accno_id_3>$form->{selectIC_expense}</select></td>
|
| 1764 | 1764 |
</tr> |
| 1765 | 1765 |
|; |
| ... | ... | |
| 1799 | 1799 |
$form->isblank("description", $locale->text('Description missing!'));
|
| 1800 | 1800 |
|
| 1801 | 1801 |
AM->save_buchungsgruppe(\%myconfig, \%$form); |
| 1802 |
$form->redirect($locale->text('Buchungsgruppe gespeichert!'));
|
|
| 1802 |
$form->redirect($locale->text('Accounting Group saved!'));
|
|
| 1803 | 1803 |
|
| 1804 | 1804 |
$lxdebug->leave_sub(); |
| 1805 | 1805 |
} |
| ... | ... | |
| 1808 | 1808 |
$lxdebug->enter_sub(); |
| 1809 | 1809 |
|
| 1810 | 1810 |
AM->delete_buchungsgruppe(\%myconfig, \%$form); |
| 1811 |
$form->redirect($locale->text('Buchungsgruppe gel?scht!'));
|
|
| 1811 |
$form->redirect($locale->text('Accounting Group deleted!'));
|
|
| 1812 | 1812 |
|
| 1813 | 1813 |
$lxdebug->leave_sub(); |
| 1814 | 1814 |
} |
Auch abrufbar als: Unified diff
Einige zu übersetzende deutsche Begriffe versucht, ins Englische zu übersetzen, damit keine Umlaute zu übersetzen sind -- macht es ansonsten unmöglich, dass andere Zeichensätze als ISO-8859-15 benutzt werden.