Revision 83d48a07
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 167 | 167 |
$form->{shipto_id} = $shipto_id;
|
| 168 | 168 |
} |
| 169 | 169 |
|
| 170 |
# currencies |
|
| 171 |
@curr = split(/:/, $form->{currencies});
|
|
| 172 |
chomp $curr[0]; |
|
| 173 |
$form->{defaultcurrency} = $curr[0];
|
|
| 174 |
|
|
| 175 |
map { $form->{selectcurrency} .= "<option>$_</option>\n" } @curr;
|
|
| 176 |
|
|
| 177 | 170 |
$form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
|
| 178 | 171 |
|
| 179 | 172 |
if (@{ $form->{all_customer} }) {
|
| ... | ... | |
| 344 | 337 |
"all" => 0, |
| 345 | 338 |
"old_id" => \@old_project_ids }, |
| 346 | 339 |
"employees" => "ALL_SALESMEN", |
| 347 |
"taxzones" => "ALL_TAXZONES"); |
|
| 340 |
"taxzones" => "ALL_TAXZONES", |
|
| 341 |
"currencies" => "ALL_CURRENCIES"); |
|
| 348 | 342 |
|
| 349 | 343 |
my %labels; |
| 350 | 344 |
my @values = (undef); |
| ... | ... | |
| 372 | 366 |
'-labels' => \%labels, '-default' => $form->{"shipto_id"}))
|
| 373 | 367 |
. qq|</td>|; |
| 374 | 368 |
|
| 369 |
%labels = (); |
|
| 370 |
@values = (); |
|
| 371 |
foreach my $item (@{ $form->{"ALL_CURRENCIES"} }) {
|
|
| 372 |
push(@values, $item->{"currency"});
|
|
| 373 |
$labels{$item->{"currency"}} = $item->{"currency"};
|
|
| 374 |
} |
|
| 375 |
|
|
| 376 |
$form->{currency} = $form->{defaultcurrency} unless $form->{currency};
|
|
| 377 |
my $currencies = qq| |
|
| 378 |
<tr> |
|
| 379 |
<th align="right">| . $locale->text('Currency') . qq|</th>
|
|
| 380 |
<td>| . |
|
| 381 |
NTI($cgi->popup_menu('-name' => 'currency', '-default' => $form->{"currency"},
|
|
| 382 |
'-values' => \@values, '-labels' => \%labels)) . qq| |
|
| 383 |
</td> |
|
| 384 |
</tr>|; |
|
| 385 |
|
|
| 375 | 386 |
%labels = (); |
| 376 | 387 |
@values = ("");
|
| 377 | 388 |
foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
|
| ... | ... | |
| 676 | 687 |
$taxzone |
| 677 | 688 |
$department |
| 678 | 689 |
<tr> |
| 679 |
<th align="right" nowrap>| . $locale->text('Currency') . qq|</th>
|
|
| 680 |
<td><select name="currency">$form->{selectcurrency}</select></td>
|
|
| 681 |
<input type="hidden" name="selectcurrency" value="$form->{selectcurrency}">
|
|
| 682 |
<input type="hidden" name="defaultcurrency" value="$form->{defaultcurrency}">
|
|
| 690 |
$currencies |
|
| 683 | 691 |
<input type="hidden" name="fxgain_accno" value="$form->{fxgain_accno}">
|
| 684 | 692 |
<input type="hidden" name="fxloss_accno" value="$form->{fxloss_accno}">
|
| 685 | 693 |
$exchangerate |
Auch abrufbar als: Unified diff
Währungs-popup auf cgi umgestellt