From c19eed376dcfe7d4bf6ba142f694e1ddc91f6fe3 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Thu, 2 Feb 2023 12:44:44 +0000
Subject: [PATCH] Bug 32775: (QA follow-up) Fix tab and indenting issues

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
---
 C4/Languages.pm | 50 ++++++++++++++++++++++++++-----------------------
 1 file changed, 27 insertions(+), 23 deletions(-)

diff --git a/C4/Languages.pm b/C4/Languages.pm
index 562050e331..827b514912 100644
--- a/C4/Languages.pm
+++ b/C4/Languages.pm
@@ -371,33 +371,37 @@ sub _build_languages_arrayref {
 
         my %idx = map { $enabled_languages->[$_] => $_ } reverse 0 .. @$enabled_languages-1;
         my @ordered_keys = sort {
-            my $aa = '';
-	    my $bb = '';
-	    my $acount = @{$language_groups->{$a}};
-	    my $bcount = @{$language_groups->{$b}};
-	    if ( $language_groups->{$a}->[0]->{enabled} ) {
+            my $aa     = '';
+            my $bb     = '';
+            my $acount = @{ $language_groups->{$a} };
+            my $bcount = @{ $language_groups->{$b} };
+            if ( $language_groups->{$a}->[0]->{enabled} ) {
                 $aa = $language_groups->{$a}->[0]->{rfc4646_subtag};
-	    } elsif ( $acount > 1 ) {
-		for ( my $i=1;$i<$acount;$i++ ) {
+            }
+            elsif ( $acount > 1 ) {
+                for ( my $i = 1 ; $i < $acount ; $i++ ) {
                     if ( $language_groups->{$a}->[$i]->{enabled} ) {
-			$aa = $language_groups->{$a}->[$i]->{rfc4646_subtag};
-			last;
-		    }
-	        }
-	    }
-	    if ( $language_groups->{$b}->[0]->{enabled} ) {
+                        $aa = $language_groups->{$a}->[$i]->{rfc4646_subtag};
+                        last;
+                    }
+                }
+            }
+            if ( $language_groups->{$b}->[0]->{enabled} ) {
                 $bb = $language_groups->{$b}->[0]->{rfc4646_subtag};
-	    } elsif ( $bcount > 1 ) {
-		for ( my $i=1;$i<$bcount;$i++ ) {
-		    if ($language_groups->{$b}->[$i]->{enabled} ) {
+            }
+            elsif ( $bcount > 1 ) {
+                for ( my $i = 1 ; $i < $bcount ; $i++ ) {
+                    if ( $language_groups->{$b}->[$i]->{enabled} ) {
                         $bb = $language_groups->{$b}->[$i]->{rfc4646_subtag};
-			last;
-		    }
-		}
-	    }
-            ( exists $idx{$aa} and exists $idx{$bb} and ( $idx{$aa} cmp $idx{$bb} ) )
-            || ( exists $idx{$aa} and exists $idx{$bb} )
-            || exists $idx{$bb}
+                        last;
+                    }
+                }
+            }
+            (         exists $idx{$aa}
+                  and exists $idx{$bb}
+                  and ( $idx{$aa} cmp $idx{$bb} ) )
+              || ( exists $idx{$aa} and exists $idx{$bb} )
+              || exists $idx{$bb}
         } keys %$language_groups;
 
         for my $key ( @ordered_keys ) {
-- 
2.30.2