From 0daebadf0412edbf9c60f957f61b84b522aa49f6 Mon Sep 17 00:00:00 2001
From: Laura_Escamilla <laura.escamilla@bywatersolutions.com>
Date: Thu, 25 Jul 2024 15:22:00 +0000
Subject: [PATCH] Bug 37285: (QA follow-up) Perl Tidy

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit e7a017e663bd0376c626a692a85cda4dc7e68324)
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit 1374290f7a75ecf32d192c8bd5fe82e6286de016)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
Signed-off-by: wainuiwitikapark <wainuiwitikapark@catalyst.net.nz>
---
 virtualshelves/shelves.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl
index 4fdc6f0c0b..ce7b628a1c 100755
--- a/virtualshelves/shelves.pl
+++ b/virtualshelves/shelves.pl
@@ -274,7 +274,7 @@ if ( $op eq 'view' ) {
             $direction = 'asc' if $direction ne 'asc' and $direction ne 'desc';
             my $rows;
             if ( $query->param('print') ) {
-                $page="";
+                $page = "";
             } else {
                 $rows = C4::Context->preference('numSearchResults') || 20;
             }
-- 
2.39.5