Revision e7214232
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 2256 | 2256 |
</tr>|; |
| 2257 | 2257 |
|
| 2258 | 2258 |
|
| 2259 |
$form->{selectadr} = "<option></option>";
|
|
| 2260 |
if (@{ $form->{ADR} }) {
|
|
| 2261 |
foreach $item (@{ $form->{ADR} }) {
|
|
| 2262 |
if ($item->{id} == $form->{adr_id}) {
|
|
| 2263 |
$form->{selectadr} .=
|
|
| 2264 |
"<option value=$item->{id} selected>$item->{adr_code}\n";
|
|
| 2265 |
} else {
|
|
| 2266 |
$form->{selectadr} .=
|
|
| 2267 |
"<option value=$item->{id}>$item->{adr_code}\n";
|
|
| 2268 |
} |
|
| 2269 |
|
|
| 2270 |
} |
|
| 2271 |
} |
|
| 2272 |
|
|
| 2273 |
$adr = qq| |
|
| 2274 |
<tr> |
|
| 2275 |
<th align=right>| . $locale->text('ADR') . qq|</th>
|
|
| 2276 |
<td><select name=adr_id>$form->{selectadr}</select></td>
|
|
| 2277 |
</tr>|; |
|
| 2278 |
|
|
| 2279 |
|
|
| 2280 | 2259 |
# set option |
| 2281 | 2260 |
foreach $item (qw(IC IC_income IC_expense)) {
|
| 2282 | 2261 |
if ($form->{$item}) {
|
| ... | ... | |
| 2628 | 2607 |
<table> |
| 2629 | 2608 |
$buchungsgruppe |
| 2630 | 2609 |
$linkaccounts |
| 2631 |
$adr |
|
| 2632 | 2610 |
</table> |
| 2633 | 2611 |
</td> |
| 2634 | 2612 |
<tr> |
Auch abrufbar als: Unified diff
ADR entfernt (kam aus Kundenprojekt und ist nicht fuer die allgemeine Lx-Office-Variante gedacht).