From 733e53522133e75b572c449d954c7bf0c555d19b Mon Sep 17 00:00:00 2001 From: Martin Renvoize 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 Signed-off-by: Katrin Fischer --- 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.20.1