Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- my $next_date = $report->{start_date};
- my $interval = '';
- if ( $report->{reccurence} eq 'daily' ) {
- $interval = 'DAY';
- } elsif ( $report->{reccurence} eq 'weekly' ) {
- $interval = 'WEEK';
- } else {
- $interval = 'MONTH';
- }
- my $date = $dbh->selectrow_hashref("SELECT DATE(?) < DATE(NOW()) AS lesser", undef, $next_date);
- while ( $date->{lesser} ) {
- my $tmp = $dbh->selectrow_hashref("SELECT DATE(?) + INTERVAL 1 $interval AS next_date", undef, $next_date);
- $next_date = $tmp->{next_date};
- $date = $dbh->selectrow_hashref("SELECT DATE(?) < DATE(NOW()) AS lesser", undef, $next_date);
- }
Add Comment
Please, Sign In to add comment