Pear-Trading/Foodloop-Server
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

added being able to work with yearly submit

Browse source
This commit is contained in:
Finn 2018-05-15 16:51:39 +01:00
parent 3ccffdf13c
commit 51e045287b
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/Pear/LocalLoop/Command/recur_transactions.pm
View file

@ -47,6 +47,7 @@ sub run {
my $match_date_fortnight = $app->format_iso_date($datetime->clone->subtract( weeks => 2 )); my $match_date_fortnight = $app->format_iso_date($datetime->clone->subtract( weeks => 2 ));
my $match_date_month = $app->format_iso_date($datetime->clone->subtract( months => 1 )); my $match_date_month = $app->format_iso_date($datetime->clone->subtract( months => 1 ));
my $match_date_quarter = $app->format_iso_date($datetime->clone->subtract( months => 3)); my $match_date_quarter = $app->format_iso_date($datetime->clone->subtract( months => 3));
my $match_date_year = $app->format_iso_date($datetime->clone->subtract( years => 1 ));
my $schema = $app->schema; my $schema = $app->schema;
my $dtf = $schema->storage->datetime_parser; my $dtf = $schema->storage->datetime_parser;
@ -78,6 +79,9 @@ sub run {
} elsif ( $recurring_period eq 'quarterly' ) { } elsif ( $recurring_period eq 'quarterly' ) {
next unless $start_time eq $match_date_quarter; next unless $start_time eq $match_date_quarter;
say "matched recurring transaction ID " . $recur_result->id . " to quarterly"; say "matched recurring transaction ID " . $recur_result->id . " to quarterly";
} elsif ( $recurring_period eq 'yearly' ) {
next unless $start_time eq $match_date_year;
say "matched recurring transaction ID " . $recur_result->id . " to yearly";
} else { } else {
say "Invalid recurring time period given"; say "Invalid recurring time period given";
return; return;