- #forgotten the year --> thisyear
- if ($form->{year} !~ m/^\d\d\d\d$/) {
- $form->{year} = substr(
- $form->datetonum(
- $form->current_date(\%myconfig), \%myconfig
- ),
- 0, 4);
- $lxdebug->message(LXDebug::DEBUG1,
- qq|Actual year from Database: $form->{year}\n|);
- }
-
- #
- # using dates in ISO-8601 format: yyyymmmdd for Postgres...
- #
-
- #yearly report
- if ($form->{period} eq "13") {
- $form->{fromdate} = "$form->{year}0101";
- $form->{todate} = "$form->{year}1231";
- }
-
- #Quater reports
- if ($form->{period} eq "41") {
- $form->{fromdate} = "$form->{year}0101";
- $form->{todate} = "$form->{year}0331";
- $form->{'0441'} = "X";
- }
- if ($form->{period} eq "42") {
- $form->{fromdate} = "$form->{year}0401";
- $form->{todate} = "$form->{year}0630";
- $form->{'0442'} = "X";
- }
- if ($form->{period} eq "43") {
- $form->{fromdate} = "$form->{year}0701";
- $form->{todate} = "$form->{year}0930";
- $form->{'0443'} = "X";
- }
- if ($form->{period} eq "44") {
- $form->{fromdate} = "$form->{year}1001";
- $form->{todate} = "$form->{year}1231";
- $form->{'0444'} = "X";
- }
-
- #Monthly reports
- SWITCH: {
- $form->{period} eq "01" && do {
- $form->{fromdate} = "$form->{year}0101";
- $form->{todate} = "$form->{year}0131";
- $form->{'0401'} = "X";
- last SWITCH;
- };
- $form->{period} eq "02" && do {
- $form->{fromdate} = "$form->{year}0201";
-
- #this works from 1901 to 2099, 1900 and 2100 fail.
- my $leap = ($form->{year} % 4 == 0) ? "29" : "28";
- $form->{todate} = "$form->{year}02$leap";
- $form->{"0402"} = "X";
- last SWITCH;
- };
- $form->{period} eq "03" && do {
- $form->{fromdate} = "$form->{year}0301";
- $form->{todate} = "$form->{year}0331";
- $form->{"0403"} = "X";
- last SWITCH;
- };
- $form->{period} eq "04" && do {
- $form->{fromdate} = "$form->{year}0401";
- $form->{todate} = "$form->{year}0430";
- $form->{"0404"} = "X";
- last SWITCH;
- };
- $form->{period} eq "05" && do {
- $form->{fromdate} = "$form->{year}0501";
- $form->{todate} = "$form->{year}0531";
- $form->{"0405"} = "X";
- last SWITCH;
- };
- $form->{period} eq "06" && do {
- $form->{fromdate} = "$form->{year}0601";
- $form->{todate} = "$form->{year}0630";
- $form->{"0406"} = "X";
- last SWITCH;
- };
- $form->{period} eq "07" && do {
- $form->{fromdate} = "$form->{year}0701";
- $form->{todate} = "$form->{year}0731";
- $form->{"0407"} = "X";
- last SWITCH;
- };
- $form->{period} eq "08" && do {
- $form->{fromdate} = "$form->{year}0801";
- $form->{todate} = "$form->{year}0831";
- $form->{"0408"} = "X";
- last SWITCH;
- };
- $form->{period} eq "09" && do {
- $form->{fromdate} = "$form->{year}0901";
- $form->{todate} = "$form->{year}0930";
- $form->{"0409"} = "X";
- last SWITCH;
- };
- $form->{period} eq "10" && do {
- $form->{fromdate} = "$form->{year}1001";
- $form->{todate} = "$form->{year}1031";
- $form->{"0410"} = "X";
- last SWITCH;
- };
- $form->{period} eq "11" && do {
- $form->{fromdate} = "$form->{year}1101";
- $form->{todate} = "$form->{year}1130";
- $form->{"0411"} = "X";
- last SWITCH;
- };
- $form->{period} eq "12" && do {
- $form->{fromdate} = "$form->{year}1201";
- $form->{todate} = "$form->{year}1231";
- $form->{"0412"} = "X";
- last SWITCH;
- };
- }