From e22ab5ec1b9b59c37ba17380f1631249c9492089 Mon Sep 17 00:00:00 2001 From: Tracey Clark Date: Sun, 7 Dec 2025 17:23:46 -0600 Subject: [PATCH] fix: Make sure variables are populated correctly --- file_processing/archive_taxes.pl | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/file_processing/archive_taxes.pl b/file_processing/archive_taxes.pl index 2c5ca81..745ad9b 100755 --- a/file_processing/archive_taxes.pl +++ b/file_processing/archive_taxes.pl @@ -7,20 +7,24 @@ use File::Find::Rule; # find all the subdirectories of a given directory use File::Path qw(make_path remove_tree); use File::Copy; +## Need to look at this and see what its doing +# These days can just archive taxes for last year during this year +# ex archive 2023 taxes if running in 2024 +# Also think this is doing double work with archive_statements + my $now = localtime; my $year = $now->year; -print "Year is $year\n"; # Get year to archive from current year my $lastyear = $now->add_years(-1)->year; my $lasttaxyear = $now->add_years(-2)->year; -print("Last year was $lastyear and tax year was $lasttaxyear\n"); +print("Processing taxes for year $lastyear\n"); # Define and create folders my ( $financial_folder, $financial_archive_folder, $lastyear_folder, $lasttaxyear_folder ); $financial_folder = '/home/tracey/Documents/financial/current_year/'; -$financial_archive_folder = '/home//Documents/financial/1_financial_archives/'; +$financial_archive_folder = '/home/tracey/Documents/financial/1_financial_archives/'; $lastyear_folder = $financial_archive_folder . $lastyear . 'FinancialArchives'; $lasttaxyear_folder = $financial_archive_folder . $lasttaxyear . 'TaxArchives'; my @folders = ( $financial_folder, $financial_archive_folder, $lastyear_folder, $lasttaxyear_folder );