Revision ddbe3ea5
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 278 | 278 |
$form->get_lists("contacts" => "ALL_CONTACTS",
|
| 279 | 279 |
"projects" => { "key" => "ALL_PROJECTS",
|
| 280 | 280 |
"all" => 0, |
| 281 |
"old_id" => \@old_project_ids }); |
|
| 281 |
"old_id" => \@old_project_ids }, |
|
| 282 |
"taxzones" => "ALL_TAXZONES"); |
|
| 282 | 283 |
|
| 283 | 284 |
my %labels; |
| 284 | 285 |
my @values = (undef); |
| ... | ... | |
| 302 | 303 |
'-labels' => \%labels, |
| 303 | 304 |
'-default' => $form->{"globalproject_id"}));
|
| 304 | 305 |
|
| 305 |
if (@{ $form->{TAXZONE} }) {
|
|
| 306 |
$form->{selecttaxzone} = "";
|
|
| 307 |
foreach $item (@{ $form->{TAXZONE} }) {
|
|
| 308 |
if ($item->{id} == $form->{taxzone_id}) {
|
|
| 309 |
$form->{selecttaxzone} .=
|
|
| 310 |
"<option value=$item->{id} selected>" . H($item->{description}) .
|
|
| 311 |
"</option>"; |
|
| 312 |
} else {
|
|
| 313 |
$form->{selecttaxzone} .=
|
|
| 314 |
"<option value=$item->{id}>" . H($item->{description}) . "</option>";
|
|
| 315 |
} |
|
| 316 |
|
|
| 317 |
} |
|
| 318 |
} else {
|
|
| 319 |
$form->{selecttaxzone} =~ s/ selected//g;
|
|
| 320 |
if ($form->{taxzone_id} ne "") {
|
|
| 321 |
$form->{selecttaxzone} =~ s/value=$form->{taxzone_id}/value=$form->{taxzone_id} selected/;
|
|
| 322 |
} |
|
| 306 |
%labels = (); |
|
| 307 |
@values = (); |
|
| 308 |
foreach my $item (@{ $form->{"ALL_TAXZONES"} }) {
|
|
| 309 |
push(@values, $item->{"id"});
|
|
| 310 |
$labels{$item->{"id"}} = $item->{"description"};
|
|
| 323 | 311 |
} |
| 324 | 312 |
|
| 325 |
$taxzone = qq| |
|
| 326 |
<tr> |
|
| 327 |
<th align=right>| . $locale->text('Steuersatz') . qq|</th>
|
|
| 328 |
<td><select name=taxzone_id>$form->{selecttaxzone}</select></td>
|
|
| 329 |
<input type=hidden name=selecttaxzone value="$form->{selecttaxzone}">
|
|
| 330 |
</tr>|; |
|
| 331 |
|
|
| 313 |
if (!$form->{"id"}) {
|
|
| 314 |
$taxzone = qq| |
|
| 315 |
<tr> |
|
| 316 |
<th align="right">| . $locale->text('Steuersatz') . qq|</th>
|
|
| 317 |
<td>| . |
|
| 318 |
NTI($cgi->popup_menu('-name' => 'taxzone_id', '-default' => $form->{"taxzone_id"},
|
|
| 319 |
'-values' => \@values, '-labels' => \%labels)) . qq| |
|
| 320 |
</td> |
|
| 321 |
</tr>|; |
|
| 332 | 322 |
|
| 323 |
} else {
|
|
| 324 |
$taxzone = qq| |
|
| 325 |
<tr> |
|
| 326 |
<th align="right">| . $locale->text('Steuersatz') . qq|</th>
|
|
| 327 |
<td> |
|
| 328 |
<input type="hidden" name="taxzone_id" value="| . H($form->{"taxzone_id"}) . qq|">
|
|
| 329 |
| . H($labels{$form->{"taxzone_id"}}) . qq|
|
|
| 330 |
</td> |
|
| 331 |
</tr>|; |
|
| 332 |
} |
|
| 333 | 333 |
|
| 334 | 334 |
$vendor = |
| 335 | 335 |
($form->{selectvendor})
|
Auch abrufbar als: Unified diff
In allen Einkaufs- und Verkaufsmasken die Drop-Down-Box für die Steuerzone bei jedem Formularaufbau neu generieren. Dadurch bleibt auch der bisher selektierte Eintrag selektiert, was er vorher nicht tat (sprang immer auf "Inland" zurück).