Revision 6c0e5cb7
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 73 | 73 |
$lxdebug->enter_sub(); |
| 74 | 74 |
my $myconfig = \%myconfig; |
| 75 | 75 |
use CGI; |
| 76 |
|
|
| 76 | 77 |
$form->{title} = $locale->text('UStVA');
|
| 77 |
$form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1
|
|
| 78 |
$form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1 Nein=0
|
|
| 78 | 79 |
|
| 79 | 80 |
my $year = substr( |
| 80 | 81 |
$form->datetonum($form->current_date(\%myconfig), |
| ... | ... | |
| 545 | 546 |
if ($form->{FA_voranmeld} eq 'month') {
|
| 546 | 547 |
|
| 547 | 548 |
# Vorauswahl bei monatlichem Voranmeldungszeitraum |
| 548 |
print qq| |
|
| 549 |
<select name="duetyp" id=zeitraum title="| |
|
| 550 |
. $locale->text('Hier den Berechnungszeitraum ausw?hlen...') . qq|">
|
|
| 551 |
|; |
|
| 552 | 549 |
|
| 553 |
my %liste = ('01' => 'January',
|
|
| 554 |
'02' => 'February', |
|
| 555 |
'03' => 'March', |
|
| 556 |
'04' => 'April', |
|
| 557 |
'05' => 'May', |
|
| 558 |
'06' => 'June', |
|
| 559 |
'07' => 'July', |
|
| 560 |
'08' => 'August', |
|
| 561 |
'09' => 'September', |
|
| 562 |
'10' => 'October', |
|
| 563 |
'11' => 'November', |
|
| 564 |
'12' => 'December', |
|
| 565 |
'13' => 'Yearly',); |
|
| 550 |
my %liste = ('01' => $locale->text('January'),
|
|
| 551 |
'02' => $locale->text('February'),
|
|
| 552 |
'03' => $locale->text('March'),
|
|
| 553 |
'04' => $locale->text('April'),
|
|
| 554 |
'05' => $locale->text('May'),
|
|
| 555 |
'06' => $locale->text('June'),
|
|
| 556 |
'07' => $locale->text('July'),
|
|
| 557 |
'08' => $locale->text('August'),
|
|
| 558 |
'09' => $locale->text('September'),
|
|
| 559 |
'10' => $locale->text('October'),
|
|
| 560 |
'11' => $locale->text('November'),
|
|
| 561 |
'12' => $locale->text('December'),
|
|
| 562 |
'13' => $locale->text('Yearly'),
|
|
| 563 |
); |
|
| 566 | 564 |
|
| 567 | 565 |
my $yy = $form->{year} * 10000;
|
| 568 | 566 |
$yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
|
| 569 |
$yymmdd = 20060121; |
|
| 570 | 567 |
$sel = ''; |
| 571 |
my $dfv = '0';
|
|
| 568 |
my $dfv = ''; |
|
| 572 | 569 |
|
| 573 | 570 |
# Offset f?r Dauerfristverl?ngerung |
| 574 | 571 |
$dfv = '100' if ($form->{FA_dauerfrist} eq '1');
|
| ... | ... | |
| 629 | 626 |
}; |
| 630 | 627 |
|
| 631 | 628 |
} |
| 629 |
print qq|<select id="zeitraum" name="duetyp" title="| |
|
| 630 |
. $locale->text('Select a period') . qq|" >|;
|
|
| 631 |
|
|
| 632 | 632 |
my $key = ''; |
| 633 | 633 |
foreach $key (sort keys %liste) {
|
| 634 | 634 |
my $selected = ''; |
| 635 | 635 |
$selected = 'selected' if ($sel eq $key); |
| 636 | 636 |
print qq| |
| 637 |
<option value="$key" $selected>| |
|
| 638 |
. $locale->text("$liste{$key}") . qq|</option>
|
|
| 639 |
|
|
| 637 |
<option value="$key" $selected> $liste{$key}</option>
|
|
| 640 | 638 |
|; |
| 641 | 639 |
} |
| 642 | 640 |
print qq|</select>|; |
Auch abrufbar als: Unified diff
Recommit von r1185 von udo_spallek: Bug 382 fixed!