From 7bcb01cec393589f8b655458ecb348eb6dbacdf6 Mon Sep 17 00:00:00 2001
From: battilo <alessandro.battilani@gmail.com>
Date: Thu, 22 Nov 2018 19:34:23 +0100
Subject: [PATCH] corretto variabili indici

---
 LoadCSVData.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/LoadCSVData.pl b/LoadCSVData.pl
index fa097f4..399091f 100644
--- a/LoadCSVData.pl
+++ b/LoadCSVData.pl
@@ -482,23 +482,23 @@ while ( my $line = <FILE> ) {
 				my $used_din = 0;
 				my $used_ain = 0;
 				for my $i (0 .. $#din){
-					if ($din[i] eq 1) {
+					if ($din[$i] eq 1) {
 						if ($used_din eq 0) {
 							$CSVData[$idx++] = $Din1;
 							$used_din = 1;
 						} else {
 							$CSVData[$idx++] = $Din2;
 						}
-					} elsif ($ain[i] eq 1) {
+					} elsif ($ain[$i] eq 1) {
 						if ($used_ain eq 0) {
 							$CSVData[$idx++] = $Ain1;
 							$used_ain = 1;
 						} else {
 							$CSVData[$idx++] = $Ain2;
 						}
-					} elsif ($din[i] eq 2) {
+					} elsif ($din[$i] eq 2) {
 						$CSVData[$idx++] = $Din1 . ";" . $Din2;
-					} elsif ($ain[i] eq 2) {
+					} elsif ($ain[$i] eq 2) {
 						$CSVData[$idx++] = $Ain1 . ";" . $Ain2;
 					} else {
 						$CSVData[$idx++] = "N/A";