From 81212d001533d6ff1cd7667b17c6d07c456e2ddf Mon Sep 17 00:00:00 2001
From: Caroline Cyr La Rose <caroline.cyr-la-rose@inlibro.com>
Date: Mon, 4 Dec 2023 17:37:39 -0500
Subject: [PATCH] Bug 35463: perltidy formatting corrections

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Philip Orr <philip.orr@lmscloud.de>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 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=(?<value>[\w+,.-]*)/) {
+    if ( $url =~ /(?:\?|\&)tab=(?<value>[\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}