Canada data file changed format, "Province" field is new

DrHyde · Dec 11, 2023 · 489b94f · 489b94f
1 parent 052c57f
commit 489b94f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/build-data.nanp b/build-data.nanp
@@ -143,7 +143,8 @@ open(my $CA_operators, '<', 'data-files/COCodeStatus_ALL.csv') ||
     die("Couldn't open data-files/COCodeStatus_ALL.csv: $!\n");
 $csv->getline($CA_operators); # header line
 $csv->getline($CA_operators); # date stamp?
-my($NPA_FIELD, $CO_FIELD, $OP_FIELD) = (0, 1, 4);
+# format is "NPA","CO Code (NXX)","Status","Exchange Area","Province","Company","OCN","Remarks"
+my($NPA_FIELD, $CO_FIELD, $OP_FIELD) = (0, 1, 5);
 while(my $row = $csv->getline($CA_operators)) {
     last unless($row->[$NPA_FIELD]);
     next unless($row->[$OP_FIELD]);