Revision b65a230d
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 727 | 727 |
map { print "$column_data{$_}\n" } @column_index;
|
| 728 | 728 |
|
| 729 | 729 |
print qq| |
| 730 |
</tr>
|
|
| 730 |
</tr>
|
|
| 731 | 731 |
|; |
| 732 | 732 |
} |
| 733 | 733 |
|
| ... | ... | |
| 929 | 929 |
map { print "$column_header{$_}\n" } @column_index;
|
| 930 | 930 |
|
| 931 | 931 |
print qq| |
| 932 |
</tr>
|
|
| 932 |
</tr> |
|
| 933 | 933 |
|; |
| 934 | 934 |
|
| 935 | 935 |
my ($i, %column_data); |
| ... | ... | |
| 939 | 939 |
$i %= 2; |
| 940 | 940 |
|
| 941 | 941 |
print qq| |
| 942 |
<tr valign=top class=listrow$i>
|
|
| 942 |
<tr valign=top class=listrow$i> |
|
| 943 | 943 |
|; |
| 944 | 944 |
|
| 945 |
# $lead = $ref->{lead};
|
|
| 945 |
# $lead = $ref->{lead};
|
|
| 946 | 946 |
|
| 947 | 947 |
$column_data{description} = qq|<td><a href="am.pl?action=edit_lead&id=$ref->{id}&callback=$callback">$ref->{lead}</td>|;
|
| 948 | 948 |
|
| 949 | 949 |
map { print "$column_data{$_}\n" } @column_index;
|
| 950 | 950 |
|
| 951 | 951 |
print qq| |
| 952 |
</tr>
|
|
| 952 |
</tr>
|
|
| 953 | 953 |
|; |
| 954 | 954 |
} |
| 955 | 955 |
|
| ... | ... | |
| 1163 | 1163 |
map { print "$column_data{$_}\n" } @column_index;
|
| 1164 | 1164 |
|
| 1165 | 1165 |
print qq| |
| 1166 |
</tr>
|
|
| 1166 |
</tr>
|
|
| 1167 | 1167 |
|; |
| 1168 | 1168 |
} |
| 1169 | 1169 |
|
| ... | ... | |
| 1417 | 1417 |
map { print "$column_data{$_}\n" } @column_index;
|
| 1418 | 1418 |
|
| 1419 | 1419 |
print qq| |
| 1420 |
</tr>
|
|
| 1420 |
</tr>
|
|
| 1421 | 1421 |
|; |
| 1422 | 1422 |
} |
| 1423 | 1423 |
|
| ... | ... | |
| 1769 | 1769 |
map { print "$column_data{$_}\n" } @column_index;
|
| 1770 | 1770 |
|
| 1771 | 1771 |
print qq| |
| 1772 |
</tr>
|
|
| 1772 |
</tr>
|
|
| 1773 | 1773 |
|; |
| 1774 | 1774 |
|
| 1775 | 1775 |
$row++; |
| ... | ... | |
| 1853 | 1853 |
if (!$main::eur) {
|
| 1854 | 1854 |
$linkaccounts = qq| |
| 1855 | 1855 |
<tr> |
| 1856 |
<th align=right>| . $locale->text('Inventory') . qq|</th>
|
|
| 1857 |
<td><select name=inventory_accno_id>$form->{selectIC}</select></td>
|
|
| 1858 |
<input name=selectIC type=hidden value="$form->{selectIC}">
|
|
| 1859 |
</tr>|;
|
|
| 1856 |
<th align=right>| . $locale->text('Inventory') . qq|</th>
|
|
| 1857 |
<td><select name=inventory_accno_id>$form->{selectIC}</select></td>
|
|
| 1858 |
<input name=selectIC type=hidden value="$form->{selectIC}">
|
|
| 1859 |
</tr>|;
|
|
| 1860 | 1860 |
} else {
|
| 1861 | 1861 |
$linkaccounts = qq| |
| 1862 | 1862 |
<input type=hidden name=inventory_accno_id value=$form->{inventory_accno_id}>|;
|
| ... | ... | |
| 1864 | 1864 |
|
| 1865 | 1865 |
|
| 1866 | 1866 |
$linkaccounts .= qq| |
| 1867 |
<tr>
|
|
| 1868 |
<th align=right>| . $locale->text('National Revenues') . qq|</th>
|
|
| 1869 |
<td><select name=income_accno_id_0>$form->{selectIC_income}</select></td>
|
|
| 1870 |
</tr>
|
|
| 1871 |
<tr>
|
|
| 1872 |
<th align=right>| . $locale->text('National Expenses') . qq|</th>
|
|
| 1873 |
<td><select name=expense_accno_id_0>$form->{selectIC_expense}</select></td>
|
|
| 1874 |
</tr>|;
|
|
| 1867 |
<tr>
|
|
| 1868 |
<th align=right>| . $locale->text('National Revenues') . qq|</th>
|
|
| 1869 |
<td><select name=income_accno_id_0>$form->{selectIC_income}</select></td>
|
|
| 1870 |
</tr>
|
|
| 1871 |
<tr>
|
|
| 1872 |
<th align=right>| . $locale->text('National Expenses') . qq|</th>
|
|
| 1873 |
<td><select name=expense_accno_id_0>$form->{selectIC_expense}</select></td>
|
|
| 1874 |
</tr>|;
|
|
| 1875 | 1875 |
if ($form->{id}) {
|
| 1876 | 1876 |
$form->{selectIC_income} =~ s/selected//g;
|
| 1877 | 1877 |
$form->{selectIC_income} =~ s/ value=\Q$form->{income_accno_id_1}\E/ value=$form->{income_accno_id_1} selected/;
|
| 1878 | 1878 |
$form->{selectIC_expense} =~ s/selected//g;
|
| 1879 | 1879 |
$form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_1}\E/ value=$form->{expense_accno_id_1} selected/;
|
| 1880 | 1880 |
} |
| 1881 |
$linkaccounts .= qq| <tr>
|
|
| 1882 |
<th align=right>| . $locale->text('Revenues EU with UStId') . qq|</th>
|
|
| 1883 |
<td><select name=income_accno_id_1>$form->{selectIC_income}</select></td>
|
|
| 1884 |
</tr>
|
|
| 1885 |
<tr>
|
|
| 1886 |
<th align=right>| . $locale->text('Expenses EU with UStId') . qq|</th>
|
|
| 1887 |
<td><select name=expense_accno_id_1>$form->{selectIC_expense}</select></td>
|
|
| 1888 |
</tr>|;
|
|
| 1881 |
$linkaccounts .= qq| <tr>
|
|
| 1882 |
<th align=right>| . $locale->text('Revenues EU with UStId') . qq|</th>
|
|
| 1883 |
<td><select name=income_accno_id_1>$form->{selectIC_income}</select></td>
|
|
| 1884 |
</tr>
|
|
| 1885 |
<tr>
|
|
| 1886 |
<th align=right>| . $locale->text('Expenses EU with UStId') . qq|</th>
|
|
| 1887 |
<td><select name=expense_accno_id_1>$form->{selectIC_expense}</select></td>
|
|
| 1888 |
</tr>|;
|
|
| 1889 | 1889 |
|
| 1890 | 1890 |
if ($form->{id}) {
|
| 1891 | 1891 |
$form->{selectIC_income} =~ s/selected//g;
|
| ... | ... | |
| 1894 | 1894 |
$form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_2}\E/ value=$form->{expense_accno_id_2} selected/;
|
| 1895 | 1895 |
} |
| 1896 | 1896 |
|
| 1897 |
$linkaccounts .= qq| <tr>
|
|
| 1898 |
<th align=right>| . $locale->text('Revenues EU without UStId') . qq|</th>
|
|
| 1899 |
<td><select name=income_accno_id_2>$form->{selectIC_income}</select></td>
|
|
| 1900 |
</tr>
|
|
| 1901 |
<tr>
|
|
| 1902 |
<th align=right>| . $locale->text('Expenses EU without UStId') . qq|</th>
|
|
| 1903 |
<td><select name=expense_accno_id_2>$form->{selectIC_expense}</select></td>
|
|
| 1904 |
</tr>|;
|
|
| 1897 |
$linkaccounts .= qq| <tr>
|
|
| 1898 |
<th align=right>| . $locale->text('Revenues EU without UStId') . qq|</th>
|
|
| 1899 |
<td><select name=income_accno_id_2>$form->{selectIC_income}</select></td>
|
|
| 1900 |
</tr>
|
|
| 1901 |
<tr>
|
|
| 1902 |
<th align=right>| . $locale->text('Expenses EU without UStId') . qq|</th>
|
|
| 1903 |
<td><select name=expense_accno_id_2>$form->{selectIC_expense}</select></td>
|
|
| 1904 |
</tr>|;
|
|
| 1905 | 1905 |
|
| 1906 | 1906 |
if ($form->{id}) {
|
| 1907 | 1907 |
$form->{selectIC_income} =~ s/selected//g;
|
| ... | ... | |
| 1910 | 1910 |
$form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_3}\E/ value=$form->{expense_accno_id_3} selected/;
|
| 1911 | 1911 |
} |
| 1912 | 1912 |
|
| 1913 |
$linkaccounts .= qq| <tr>
|
|
| 1914 |
<th align=right>| . $locale->text('Foreign Revenues') . qq|</th>
|
|
| 1915 |
<td><select name=income_accno_id_3>$form->{selectIC_income}</select></td>
|
|
| 1916 |
</tr>
|
|
| 1917 |
<tr>
|
|
| 1918 |
<th align=right>| . $locale->text('Foreign Expenses') . qq|</th>
|
|
| 1919 |
<td><select name=expense_accno_id_3>$form->{selectIC_expense}</select></td>
|
|
| 1920 |
</tr>
|
|
| 1913 |
$linkaccounts .= qq| <tr>
|
|
| 1914 |
<th align=right>| . $locale->text('Foreign Revenues') . qq|</th>
|
|
| 1915 |
<td><select name=income_accno_id_3>$form->{selectIC_income}</select></td>
|
|
| 1916 |
</tr>
|
|
| 1917 |
<tr>
|
|
| 1918 |
<th align=right>| . $locale->text('Foreign Expenses') . qq|</th>
|
|
| 1919 |
<td><select name=expense_accno_id_3>$form->{selectIC_expense}</select></td>
|
|
| 1920 |
</tr>
|
|
| 1921 | 1921 |
|; |
| 1922 | 1922 |
|
| 1923 | 1923 |
|
| ... | ... | |
| 2106 | 2106 |
map { print "$column_data{$_}\n" } @column_index;
|
| 2107 | 2107 |
|
| 2108 | 2108 |
print qq| |
| 2109 |
</tr>
|
|
| 2109 |
</tr>
|
|
| 2110 | 2110 |
|; |
| 2111 | 2111 |
} |
| 2112 | 2112 |
|
| ... | ... | |
| 2393 | 2393 |
map { print "$column_data{$_}\n" } @column_index;
|
| 2394 | 2394 |
|
| 2395 | 2395 |
print qq| |
| 2396 |
</tr>
|
|
| 2396 |
</tr>
|
|
| 2397 | 2397 |
|; |
| 2398 | 2398 |
$row++; |
| 2399 | 2399 |
} |
| ... | ... | |
| 2787 | 2787 |
<tr> |
| 2788 | 2788 |
<td> |
| 2789 | 2789 |
<table> |
| 2790 |
<tr>
|
|
| 2791 |
<th>| . $locale->text('Close Books up to') . qq|</th>
|
|
| 2792 |
<td><input name=closedto size=11 title="$myconfig{dateformat}" value=$form->{closedto}></td>
|
|
| 2793 |
</tr>
|
|
| 2790 |
<tr>
|
|
| 2791 |
<th>| . $locale->text('Close Books up to') . qq|</th>
|
|
| 2792 |
<td><input name=closedto size=11 title="$myconfig{dateformat}" value=$form->{closedto}></td>
|
|
| 2793 |
</tr>
|
|
| 2794 | 2794 |
</table> |
| 2795 | 2795 |
</td> |
| 2796 | 2796 |
</tr> |
Auch abrufbar als: Unified diff
Tabs aus *.pl Dateien entfernt.