- my %liste = ('01' => 'January',
- '02' => 'February',
- '03' => 'March',
- '04' => 'April',
- '05' => 'May',
- '06' => 'June',
- '07' => 'July',
- '08' => 'August',
- '09' => 'September',
- '10' => 'October',
- '11' => 'November',
- '12' => 'December');
-
- my $yy = $form->{year}* 10000;
- $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
- $sel='';
- my $dfv = '0'; # Offset für Dauerfristverlängerung
- #$dfv = '100' if ($form->{FA_dauerfrist} eq '1');
-
- SWITCH: {
- $yymmdd <= ($yy + 110 + $dfv) && do {
- $form->{year} = $form->{year} - 1;
- $sel='12';
- last SWITCH;
- };
- $yymmdd <= ($yy + 210 + $dfv) && do {
- $sel='01';
- last SWITCH;
- };
- $yymmdd <= ($yy + 310 + $dfv) && do {
- $sel='02';
- last SWITCH;
- };
- $yymmdd <= ($yy + 410 + $dfv) && do {
- $sel='03';
- last SWITCH;
- };
- $yymmdd <= ($yy + 510 + $dfv) && do {
- $sel='04';
- last SWITCH;
- };
- $yymmdd <= ($yy + 610 + $dfv) && do {
- $sel='05';
- last SWITCH;
- };
- $yymmdd <= ($yy + 710 + $dfv) && do {
- $sel='06';
- last SWITCH;
- };
- $yymmdd <= ($yy + 810 + $dfv) && do {
- $sel='07';
- last SWITCH;
- };
- $yymmdd <= ($yy + 910 + $dfv) && do {
- $sel='08';
- last SWITCH;
- };
- $yymmdd <= ($yy + 1010 + $dfv) && do {
- $sel='09';
- last SWITCH;
- };
- $yymmdd <= ($yy + 1110 + $dfv) && do {
- $sel='10';
- last SWITCH;
- };
- $yymmdd <= ($yy + 1210) && do {
- $sel='11';
- last SWITCH;
- };
- $yymmdd <= ($yy + 1231) && do {
- $sel='12';
- last SWITCH;
- };
-
- };
- my $key = '';
- foreach $key ( sort keys %liste ){
- my $selected = '';
- $selected = 'selected' if ( $sel eq $key );
- print qq|
- <option value="$key" $selected>|.$locale->text("$liste{$key}").qq|</option>
-
- |;
- }
- print qq|</select>|;
-
- } elsif ($form->{FA_voranmeld} eq 'quarter'){
- # Vorauswahl bei quartalsweisem Voranmeldungszeitraum
- my %liste = ( 'A' => '1.',
- 'B' => '2.',
- 'C' => '3.',
- 'D' => '4.',
- );
-
- my $yy = $form->{year}* 10000;
- $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
- $sel='';
- my $dfv = ''; # Offset für Dauerfristverlängerung
- $dfv = '100' if ($form->{FA_dauerfrist} eq '1');
-
- SWITCH: {
- $yymmdd <= ($yy + 110 + $dfv) && do {
- $form->{year} = $form->{year} - 1;
- $sel='D';
- last SWITCH;
- };
- $yymmdd <= ($yy + 410 + $dfv) && do {
- $sel='A';
- last SWITCH;
- };
- $yymmdd <= ($yy + 710 + $dfv) && do {
- $sel='B';
- last SWITCH;
- };
- $yymmdd <= ($yy + 1010 + $dfv) && do {
- $sel='C';
- last SWITCH;
- };
- $yymmdd <= ($yy + 1231) && do {
- $sel='D';
- };
- };
-
- print qq|<select id="zeitraum" name="duetyp" title="|.$locale->text('Select a period').qq|" >|;
- my $key = '';
- foreach $key ( sort keys %liste ){
- my $selected = '';
- $selected = 'selected' if ( $sel eq $key );
- print qq|
- <option value="$key" $selected>$liste{$key} |.$locale->text('Quarter').qq|</option>
+ if ($form->{fa_voranmeld} eq 'month') {
+
+ # Vorauswahl bei monatlichem Voranmeldungszeitraum
+
+ my %liste = ('01' => $locale->text('January'),
+ '02' => $locale->text('February'),
+ '03' => $locale->text('March'),
+ '04' => $locale->text('April'),
+ '05' => $locale->text('May'),
+ '06' => $locale->text('June'),
+ '07' => $locale->text('July'),
+ '08' => $locale->text('August'),
+ '09' => $locale->text('September'),
+ '10' => $locale->text('October'),
+ '11' => $locale->text('November'),
+ '12' => $locale->text('December'),
+ '13' => $locale->text('Yearly'),
+ );
+
+ my $yy = $form->{year} * 10000;
+ $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
+ $sel = '';
+ my $dfv = '';
+
+ # Offset für Dauerfristverlängerung
+ $dfv = '100' if ($form->{fa_dauerfrist} eq '1');
+
+ SWITCH: {
+ $yymmdd <= ($yy + 110 + $dfv) && do {
+ $form->{year} = $form->{year} - 1;
+ $sel = '12';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 210 + $dfv) && do {
+ $sel = '01';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 310 + $dfv) && do {
+ $sel = '02';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 410 + $dfv) && do {
+ $sel = '03';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 510 + $dfv) && do {
+ $sel = '04';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 610 + $dfv) && do {
+ $sel = '05';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 710 + $dfv) && do {
+ $sel = '06';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 810 + $dfv) && do {
+ $sel = '07';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 910 + $dfv) && do {
+ $sel = '08';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 1010 + $dfv) && do {
+ $sel = '09';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 1110 + $dfv) && do {
+ $sel = '10';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 1210) && do {
+ $sel = '11';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 1231) && do {
+ $sel = '12';
+ last SWITCH;
+ };
+
+ }
+ $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
+ . $locale->text('Select a period') . qq|" >|;
+
+ my $key = '';
+ foreach $key (sort keys %liste) {
+ my $selected = '';
+ $selected = 'selected' if ($sel eq $key);
+ $select_vorauswahl .= qq|
+ <option value="$key" $selected> $liste{$key}</option>
+ |;
+ }
+ $select_vorauswahl .= qq|</select>|;
+
+ } elsif ($form->{fa_voranmeld} eq 'quarter') {
+
+ # Vorauswahl bei quartalsweisem Voranmeldungszeitraum
+ my %liste = ('41' => $locale->text('1. Quarter'),
+ '42' => $locale->text('2. Quarter'),
+ '43' => $locale->text('3. Quarter'),
+ '44' => $locale->text('4. Quarter'),
+ '13' => $locale->text('Yearly'),);
+
+ my $yy = $form->{year} * 10000;
+ $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
+ $sel = '';
+ my $dfv = ''; # Offset für Dauerfristverlängerung
+ $dfv = '100' if ($form->{fa_dauerfrist} eq '1');
+
+ SWITCH: {
+ $yymmdd <= ($yy + 110 + $dfv) && do {
+ $form->{year} = $form->{year} - 1;
+ $sel = '44';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 410 + $dfv) && do {
+ $sel = '41';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 710 + $dfv) && do {
+ $sel = '42';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 1010 + $dfv) && do {
+ $sel = '43';
+ last SWITCH;
+ };
+ $yymmdd <= ($yy + 1231) && do {
+ $sel = '44';
+ };
+ }
+
+ $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
+ . $locale->text('Select a period') . qq|" >|;
+ my $key = '';
+ foreach $key (sort keys %liste) {
+ my $selected = '';
+ $selected = 'selected' if ($sel eq $key);
+ $select_vorauswahl .= qq|
+ <option value="$key" $selected>$liste{$key}</option>