From 38e8e5a4b34308ec8f98213d2c3e7297067d2b17 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 20 Mar 2025 10:48:08 +0100 Subject: [PATCH] Bug 39325: Tidy Some files need to be tidy after the automatic commit Signed-off-by: Owen Leonard Signed-off-by: Nick Clemens --- C4/Biblio.pm | 2 +- C4/Languages.pm | 6 +++--- fix-perl-path.PL | 2 +- reports/acquisitions_stats.pl | 8 ++++---- reports/cat_issues_top.pl | 4 ++-- reports/catalogue_stats.pl | 10 +++++----- reports/issues_avg_stats.pl | 8 ++++---- 7 files changed, 20 insertions(+), 20 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 41923f1dfd2..5aac2308796 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -938,7 +938,7 @@ sub GetISBDView { my ( $holdingbrtagf, $holdingbrtagsubf ) = &GetMarcFromKohaField("items.holdingbranch"); my $tagslib = GetMarcStructure( 1, $itemtype, { unsafe => 1 } ); - my $ISBD = C4::Context->preference($sysprefname); + my $ISBD = C4::Context->preference($sysprefname); my $block = $ISBD; my $res; my $blocres; diff --git a/C4/Languages.pm b/C4/Languages.pm index b7ec23fc527..2f669c96c5c 100644 --- a/C4/Languages.pm +++ b/C4/Languages.pm @@ -423,10 +423,10 @@ sub _build_languages_arrayref { my %idx = map { $enabled_languages->[$_] => $_ } reverse 0 .. @$enabled_languages - 1; my @ordered_keys = sort { - my $aa = ''; - my $bb = ''; + my $aa = ''; + my $bb = ''; my $account = @{ $language_groups->{$a} }; - my $bcount = @{ $language_groups->{$b} }; + my $bcount = @{ $language_groups->{$b} }; if ( $language_groups->{$a}->[0]->{enabled} ) { $aa = $language_groups->{$a}->[0]->{rfc4646_subtag}; } elsif ( $account > 1 ) { diff --git a/fix-perl-path.PL b/fix-perl-path.PL index 839b4390b29..43be7f7a43e 100644 --- a/fix-perl-path.PL +++ b/fix-perl-path.PL @@ -28,7 +28,7 @@ my $bindir = $Config{installbin}; $bindir =~ s!\\!/!g; # make all directory separators uniform since Win32 does not care and *nix does... my $shebang = "#!$bindir\/perl"; -warn "Perl binary located in $bindir on this system.\n" if $DEBUG; +warn "Perl binary located in $bindir on this system.\n" if $DEBUG; warn "The shebang line for this systems should be $shebang\n\n" if $DEBUG; die if $basedir eq 'test'; diff --git a/reports/acquisitions_stats.pl b/reports/acquisitions_stats.pl index 6dd73cfad66..4457e56f244 100755 --- a/reports/acquisitions_stats.pl +++ b/reports/acquisitions_stats.pl @@ -379,7 +379,7 @@ sub calculate { } } - my $i = 0; + my $i = 0; my $highlighted = -1; #Initialization of cell values..... @@ -478,10 +478,10 @@ sub calculate { push @loopcell, { value => $value }; } my $r = { - rowtitle => ( $row eq "zzEMPTY" ) ? "NULL" : $row, - loopcell => \@loopcell, + rowtitle => ( $row eq "zzEMPTY" ) ? "NULL" : $row, + loopcell => \@loopcell, highlighted => ( $highlighted > 0 ), - totalrow => $table{$row}->{totalrow} + totalrow => $table{$row}->{totalrow} }; $r->{totalrow} = sprintf( "%.2f", $r->{totalrow} ) if ( $r->{totalrow} and grep /$process/, ( 3, 4, 5 ) ); push @looprow, $r; diff --git a/reports/cat_issues_top.pl b/reports/cat_issues_top.pl index 35ff98e975b..1bf6b337fa3 100755 --- a/reports/cat_issues_top.pl +++ b/reports/cat_issues_top.pl @@ -406,8 +406,8 @@ sub calculate { #my $total = $table[$i]->{totalrow}/$colcount if ($colcount>0); push @looprow, { - 'rowtitle' => $i, - 'loopcell' => \@loopcell, + 'rowtitle' => $i, + 'loopcell' => \@loopcell, 'highlighted' => ( $highlighted > 0 ), }; $highlighted = -$highlighted; diff --git a/reports/catalogue_stats.pl b/reports/catalogue_stats.pl index facc0d782d5..aca5b4bc2c6 100755 --- a/reports/catalogue_stats.pl +++ b/reports/catalogue_stats.pl @@ -401,7 +401,7 @@ sub calculate { push @loopcol, \%cell; } - my $i = 0; + my $i = 0; my $highlighted = -1; #Initialization of cell values..... @@ -540,11 +540,11 @@ sub calculate { } push @looprow, { - 'rowtitle' => $row->{rowtitle}, - 'value' => $row->{value}, - 'loopcell' => \@loopcell, + 'rowtitle' => $row->{rowtitle}, + 'value' => $row->{value}, + 'loopcell' => \@loopcell, 'highlighted' => ( $highlighted *= -1 > 0 ), - 'totalrow' => $table{ $row->{value} }->{totalrow} + 'totalrow' => $table{ $row->{value} }->{totalrow} }; } diff --git a/reports/issues_avg_stats.pl b/reports/issues_avg_stats.pl index f4db4986f2b..ae376f3cde0 100755 --- a/reports/issues_avg_stats.pl +++ b/reports/issues_avg_stats.pl @@ -386,7 +386,7 @@ sub calculate { # warn "fin des titres colonnes"; - my $i = 0; + my $i = 0; my $highlighted = -1; #Initialization of cell values..... @@ -515,10 +515,10 @@ sub calculate { } push @looprow, { - 'rowtitle' => ( $row eq "zzEMPTY" ) ? "NULL" : $row, - 'loopcell' => \@loopcell, + 'rowtitle' => ( $row eq "zzEMPTY" ) ? "NULL" : $row, + 'loopcell' => \@loopcell, 'highlighted' => ( $highlighted > 0 ), - 'totalrow' => ($total) ? sprintf( "%.2f", $total ) : 0 + 'totalrow' => ($total) ? sprintf( "%.2f", $total ) : 0 }; $highlighted = -$highlighted; } -- 2.34.1