From c676fa5cf68a12840591654f364038120591573c Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Sat, 13 Jun 2020 23:57:15 +0530
Subject: Shorten "State Unassigned", check for statecode if length > 16

---
 ara.pl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'ara.pl')

diff --git a/ara.pl b/ara.pl
index c7015be..e7e0618 100755
--- a/ara.pl
+++ b/ara.pl
@@ -181,14 +181,22 @@ $rows_to_print = scalar @$statewise
 
 foreach my $i ( 0 ... $rows_to_print - 1  ) {
     my $state = $statewise->[$i]{state};
+
     $state = "India"
         if $state eq "Total";
 
+    $state = "Unassigned"
+        if $state eq "State Unassigned";
+
     next
-        if exists $hide{lc $state};
+        if exists $hide{lc $state}
+        # User sees the statecode if length $state > 16 so we also
+        # match against that.
+        or ( length $state > 16
+             and exists $hide{lc $statewise->[$i]{statecode}});
 
     $state = $statewise->[$i]{statecode}
-        if length($state) > 16;
+        if length $state > 16;
 
     if ( $state_notes ) {
         $notes_table->addRow(
-- 
cgit 1.4.1-2-gfad0