- SWITCH: {
- $form->{duetyp} eq "01" && do {
- $form->{fromdate}="1.1.$form->{year}";
- $form->{todate}="31.1.$form->{year}";
- $form->{'0401'} = "X";
- last SWITCH;
- };
- $form->{duetyp} eq "02" && do {
- $form->{fromdate}="1.2.$form->{year}";
- #this works from 1901 to 2099, 1900 and 2100 fail.
- my $leap=($form->{year} % 4 == 0) ? "29" : "28";
- $form->{todate}="$leap.2.$form->{year}";
- $form->{"0402"} = "X";
- last SWITCH;
- };
- $form->{duetyp} eq "03" && do {
- $form->{fromdate}="1.3.$form->{year}";
- $form->{todate}="31.3.$form->{year}";
- $form->{"0403"} = "X";
- last SWITCH;
- };
- $form->{duetyp} eq "04" && do {
- $form->{fromdate}="1.4.$form->{year}";
- $form->{todate}="30.4.$form->{year}";
- $form->{"0404"} = "X";
- last SWITCH;
- };
- $form->{duetyp} eq "05" && do {
- $form->{fromdate}="1.5.$form->{year}";
- $form->{todate}="31.5.$form->{year}";
- $form->{"0405"} = "X";
- last SWITCH;
- };
- $form->{duetyp} eq "06" && do {
- $form->{fromdate}="1.6.$form->{year}";
- $form->{todate}="30.6.$form->{year}";
- $form->{"0406"} = "X";
- last SWITCH;
- };
- $form->{duetyp} eq "07" && do {
- $form->{fromdate}="1.7.$form->{year}";
- $form->{todate}="31.7.$form->{year}";
- $form->{"0407"} = "X";
- last SWITCH;
- };
- $form->{duetyp} eq "08" && do {
- $form->{fromdate}="1.8.$form->{year}";
- $form->{todate}="31.8.$form->{year}";
- $form->{"0408"} = "X";
- last SWITCH;
- };
- $form->{duetyp} eq "09" && do {
- $form->{fromdate}="1.9.$form->{year}";
- $form->{todate}="30.9.$form->{year}";
- $form->{"0409"} = "X";
- last SWITCH;
- };
- $form->{duetyp} eq "10" && do {
- $form->{fromdate}="1.10.$form->{year}";
- $form->{todate}="31.10.$form->{year}";
- $form->{"0410"} = "X";
- last SWITCH;
- };
- $form->{duetyp} eq "11" && do {
- $form->{fromdate}="1.11.$form->{year}";
- $form->{todate}="30.11.$form->{year}";
- $form->{"0411"} = "X";
- last SWITCH;
- };
- $form->{duetyp} eq "12" && do {
- $form->{fromdate}="1.12.$form->{year}";
- $form->{todate}="31.12.$form->{year}";
- $form->{"0412"} = "X";
- last SWITCH;
- };
- }
- }
+ SWITCH: {
+ $form->{duetyp} eq "01" && do {
+ $form->{fromdate} = "1.1.$form->{year}";
+ $form->{todate} = "31.1.$form->{year}";
+ $form->{'0401'} = "X";
+ last SWITCH;
+ };
+ $form->{duetyp} eq "02" && do {
+ $form->{fromdate} = "1.2.$form->{year}";
+
+ #this works from 1901 to 2099, 1900 and 2100 fail.
+ my $leap = ($form->{year} % 4 == 0) ? "29" : "28";
+ $form->{todate} = "$leap.2.$form->{year}";
+ $form->{"0402"} = "X";
+ last SWITCH;
+ };
+ $form->{duetyp} eq "03" && do {
+ $form->{fromdate} = "1.3.$form->{year}";
+ $form->{todate} = "31.3.$form->{year}";
+ $form->{"0403"} = "X";
+ last SWITCH;
+ };
+ $form->{duetyp} eq "04" && do {
+ $form->{fromdate} = "1.4.$form->{year}";
+ $form->{todate} = "30.4.$form->{year}";
+ $form->{"0404"} = "X";
+ last SWITCH;
+ };
+ $form->{duetyp} eq "05" && do {
+ $form->{fromdate} = "1.5.$form->{year}";
+ $form->{todate} = "31.5.$form->{year}";
+ $form->{"0405"} = "X";
+ last SWITCH;
+ };
+ $form->{duetyp} eq "06" && do {
+ $form->{fromdate} = "1.6.$form->{year}";
+ $form->{todate} = "30.6.$form->{year}";
+ $form->{"0406"} = "X";
+ last SWITCH;
+ };
+ $form->{duetyp} eq "07" && do {
+ $form->{fromdate} = "1.7.$form->{year}";
+ $form->{todate} = "31.7.$form->{year}";
+ $form->{"0407"} = "X";
+ last SWITCH;
+ };
+ $form->{duetyp} eq "08" && do {
+ $form->{fromdate} = "1.8.$form->{year}";
+ $form->{todate} = "31.8.$form->{year}";
+ $form->{"0408"} = "X";
+ last SWITCH;
+ };
+ $form->{duetyp} eq "09" && do {
+ $form->{fromdate} = "1.9.$form->{year}";
+ $form->{todate} = "30.9.$form->{year}";
+ $form->{"0409"} = "X";
+ last SWITCH;
+ };
+ $form->{duetyp} eq "10" && do {
+ $form->{fromdate} = "1.10.$form->{year}";
+ $form->{todate} = "31.10.$form->{year}";
+ $form->{"0410"} = "X";
+ last SWITCH;
+ };
+ $form->{duetyp} eq "11" && do {
+ $form->{fromdate} = "1.11.$form->{year}";
+ $form->{todate} = "30.11.$form->{year}";
+ $form->{"0411"} = "X";
+ last SWITCH;
+ };
+ $form->{duetyp} eq "12" && do {
+ $form->{fromdate} = "1.12.$form->{year}";
+ $form->{todate} = "31.12.$form->{year}";
+ $form->{"0412"} = "X";
+ last SWITCH;
+ };
+ }
+ }
+