From 81212d001533d6ff1cd7667b17c6d07c456e2ddf Mon Sep 17 00:00:00 2001 From: Caroline Cyr La Rose Date: Mon, 4 Dec 2023 17:37:39 -0500 Subject: [PATCH] Bug 35463: perltidy formatting corrections Signed-off-by: Martin Renvoize Signed-off-by: Philip Orr Signed-off-by: Martin Renvoize Signed-off-by: Katrin Fischer --- Koha/Manual.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Koha/Manual.pm b/Koha/Manual.pm index 4db9083541..9c33f4a504 100644 --- a/Koha/Manual.pm +++ b/Koha/Manual.pm @@ -308,23 +308,23 @@ our $mapping = { sub get_url { my ( $url, $preferred_language ) = @_; my $file; - if ($url =~ /koha\/(.*)\.pl/ || $url =~ '/koha/(erm.*)' || $url =~ '/koha/(preservation.*)') { + if ( $url =~ /koha\/(.*)\.pl/ || $url =~ '/koha/(erm.*)' || $url =~ '/koha/(preservation.*)' ) { $file = $1; } else { $file = 'mainpage'; } $file =~ s/[^a-zA-Z0-9_\-\/]*//g; - if ( $file =~ m|^erm| || $file =~ m|^preservation|) { + if ( $file =~ m|^erm| || $file =~ m|^preservation| ) { $file =~ s|\d*+||g; } my $view; - if ($url =~ /(?:\?|\&)tab=(?[\w+,.-]*)/) { + if ( $url =~ /(?:\?|\&)tab=(?[\w+,.-]*)/ ) { $view = $file . '#' . $+{value}; } - my $base_url = _get_base_url( $preferred_language ); + my $base_url = _get_base_url($preferred_language); return $base_url . ( exists $mapping->{$view} ? $mapping->{$view} -- 2.39.5