Revision 83d48a07
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 254 | 254 |
(@{ $form->{"all_$form->{vc}"} });
|
| 255 | 255 |
} |
| 256 | 256 |
|
| 257 |
# currencies |
|
| 258 |
@curr = split(/:/, $form->{currencies});
|
|
| 259 |
chomp $curr[0]; |
|
| 260 |
$form->{defaultcurrency} = $curr[0];
|
|
| 261 |
$form->{currency} = $form->{defaultcurrency} unless $form->{currency};
|
|
| 262 |
|
|
| 263 |
map { $form->{selectcurrency} .= "<option>$_</option>\n" } @curr;
|
|
| 264 |
|
|
| 265 | 257 |
$form->{taxincluded} = $taxincluded if ($form->{id});
|
| 266 | 258 |
|
| 267 | 259 |
# departments |
| ... | ... | |
| 361 | 353 |
|
| 362 | 354 |
# with JavaScript Calendar |
| 363 | 355 |
$button1 = qq| |
| 364 |
<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate} onBlur=\"check_right_date_format(this)\"></td>
|
|
| 356 |
<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" onBlur=\"check_right_date_format(this)\"></td>
|
|
| 365 | 357 |
<td><input type=button name=transdate id="trigger1" value=| |
| 366 | 358 |
. $locale->text('button') . qq|></td>
|
| 367 | 359 |
|; |
| 368 | 360 |
$button2 = qq| |
| 369 |
<td width="13"><input name=reqdate id=reqdate size=11 title="$myconfig{dateformat}" value=$form->{reqdate} onBlur=\"check_right_date_format(this)\"></td>
|
|
| 361 |
<td width="13"><input name=reqdate id=reqdate size=11 title="$myconfig{dateformat}" value="$form->{reqdate}" onBlur=\"check_right_date_format(this)\"></td>
|
|
| 370 | 362 |
<td width="4"><input type=button name=reqdate name=reqdate id="trigger2" value=| |
| 371 | 363 |
. $locale->text('button') . qq|></td>
|
| 372 | 364 |
|; |
| ... | ... | |
| 380 | 372 |
|
| 381 | 373 |
# without JavaScript Calendar |
| 382 | 374 |
$button1 = qq| |
| 383 |
<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate} onBlur=\"check_right_date_format(this)\"></td>|;
|
|
| 375 |
<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" onBlur=\"check_right_date_format(this)\"></td>|;
|
|
| 384 | 376 |
$button2 = qq| |
| 385 |
<td width="13"><input name=reqdate id=reqdate size=11 title="$myconfig{dateformat}" value=$form->{reqdate} onBlur=\"check_right_date_format(this)\"></td>|;
|
|
| 377 |
<td width="13"><input name=reqdate id=reqdate size=11 title="$myconfig{dateformat}" value="$form->{reqdate}" onBlur=\"check_right_date_format(this)\"></td>|;
|
|
| 386 | 378 |
} |
| 387 | 379 |
|
| 388 | 380 |
my @tmp; |
| ... | ... | |
| 432 | 424 |
"all" => 0, |
| 433 | 425 |
"old_id" => \@old_project_ids }, |
| 434 | 426 |
"employees" => "ALL_SALESMEN", |
| 435 |
"taxzones" => "ALL_TAXZONES"); |
|
| 427 |
"taxzones" => "ALL_TAXZONES", |
|
| 428 |
"currencies" => "ALL_CURRENCIES"); |
|
| 436 | 429 |
|
| 437 | 430 |
my %labels; |
| 438 | 431 |
my @values = (undef); |
| ... | ... | |
| 507 | 500 |
</td> |
| 508 | 501 |
</tr>|; |
| 509 | 502 |
|
| 503 |
%labels = (); |
|
| 504 |
@values = (); |
|
| 505 |
foreach my $item (@{ $form->{"ALL_CURRENCIES"} }) {
|
|
| 506 |
push(@values, $item->{"currency"});
|
|
| 507 |
$labels{$item->{"currency"}} = $item->{"currency"};
|
|
| 508 |
} |
|
| 509 |
|
|
| 510 |
$form->{currency} = $form->{defaultcurrency} unless $form->{currency};
|
|
| 511 |
my $currencies = qq| |
|
| 512 |
<tr> |
|
| 513 |
<th align="right">| . $locale->text('Currency') . qq|</th>
|
|
| 514 |
<td>| . |
|
| 515 |
NTI($cgi->popup_menu('-name' => 'currency', '-default' => $form->{"currency"},
|
|
| 516 |
'-values' => \@values, '-labels' => \%labels)) . qq| |
|
| 517 |
</td> |
|
| 518 |
</tr>|; |
|
| 519 |
|
|
| 520 |
|
|
| 510 | 521 |
$form->{exchangerate} =
|
| 511 | 522 |
$form->format_amount(\%myconfig, $form->{exchangerate});
|
| 512 | 523 |
|
| ... | ... | |
| 792 | 803 |
$taxzone |
| 793 | 804 |
$department |
| 794 | 805 |
<tr> |
| 795 |
<th align=right>| . $locale->text('Currency') . qq|</th>
|
|
| 796 |
<td><select name=currency>$form->{selectcurrency}</select></td>
|
|
| 797 |
<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
|
|
| 798 |
<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
|
|
| 806 |
$currencies |
|
| 799 | 807 |
$exchangerate |
| 800 | 808 |
</tr> |
| 801 | 809 |
<tr> |
Auch abrufbar als: Unified diff
Währungs-popup auf cgi umgestellt