From 1374290f7a75ecf32d192c8bd5fe82e6286de016 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>
---
 virtualshelves/shelves.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl
index 74228fad64..f3615d82d0 100755
--- a/virtualshelves/shelves.pl
+++ b/virtualshelves/shelves.pl
@@ -277,7 +277,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