Revision 83d48a07
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 120 | 120 |
$form->{taxzone_id} = $taxzone_id;
|
| 121 | 121 |
} |
| 122 | 122 |
|
| 123 |
# currencies |
|
| 124 |
@curr = split(/:/, $form->{currencies});
|
|
| 125 |
chomp $curr[0]; |
|
| 126 |
$form->{defaultcurrency} = $curr[0];
|
|
| 127 |
|
|
| 128 | 123 |
map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
|
| 129 | 124 |
|
| 130 | 125 |
$form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";
|
| ... | ... | |
| 279 | 274 |
"projects" => { "key" => "ALL_PROJECTS",
|
| 280 | 275 |
"all" => 0, |
| 281 | 276 |
"old_id" => \@old_project_ids }, |
| 282 |
"taxzones" => "ALL_TAXZONES"); |
|
| 277 |
"taxzones" => "ALL_TAXZONES", |
|
| 278 |
"currencies" => "ALL_CURRENCIES"); |
|
| 283 | 279 |
|
| 284 | 280 |
my %labels; |
| 285 | 281 |
my @values = (undef); |
| ... | ... | |
| 302 | 298 |
NTI($cgi->popup_menu('-name' => 'globalproject_id', '-values' => \@values,
|
| 303 | 299 |
'-labels' => \%labels, |
| 304 | 300 |
'-default' => $form->{"globalproject_id"}));
|
| 305 |
|
|
| 301 |
|
|
| 302 |
%labels = (); |
|
| 303 |
@values = (); |
|
| 304 |
foreach my $item (@{ $form->{"ALL_CURRENCIES"} }) {
|
|
| 305 |
push(@values, $item->{"currency"});
|
|
| 306 |
$labels{$item->{"currency"}} = $item->{"currency"};
|
|
| 307 |
} |
|
| 308 |
|
|
| 309 |
$form->{currency} = $form->{defaultcurrency} unless $form->{currency};
|
|
| 310 |
my $currencies = qq| |
|
| 311 |
<tr> |
|
| 312 |
<th align="right">| . $locale->text('Currency') . qq|</th>
|
|
| 313 |
<td>| . |
|
| 314 |
NTI($cgi->popup_menu('-name' => 'currency', '-default' => $form->{"currency"},
|
|
| 315 |
'-values' => \@values, '-labels' => \%labels)) . qq| |
|
| 316 |
</td> |
|
| 317 |
</tr>|; |
|
| 318 |
|
|
| 306 | 319 |
%labels = (); |
| 307 | 320 |
@values = (); |
| 308 | 321 |
foreach my $item (@{ $form->{"ALL_TAXZONES"} }) {
|
| ... | ... | |
| 459 | 472 |
$taxzone |
| 460 | 473 |
$department |
| 461 | 474 |
<tr> |
| 462 |
<th align=right nowrap>| . $locale->text('Currency') . qq|</th>
|
|
| 463 |
<td><select name=currency>$form->{selectcurrency}</select></td>
|
|
| 475 |
$currencies |
|
| 464 | 476 |
$exchangerate |
| 465 | 477 |
</tr> |
| 466 | 478 |
</table> |
| ... | ... | |
| 507 | 519 |
|
| 508 | 520 |
$jsscript |
| 509 | 521 |
|
| 510 |
<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
|
|
| 511 |
<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
|
|
| 512 | 522 |
<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
|
| 513 | 523 |
<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
|
| 514 | 524 |
<input type=hidden name=webdav value=$webdav> |
Auch abrufbar als: Unified diff
Währungs-popup auf cgi umgestellt