Bug 15258: Fix Perl scripts declaring unused variables

[koha-equinox.git] / reserve / placerequest.pl

diff --git a/reserve/placerequest.pl b/reserve/placerequest.pl
index 6cbaa7b..80dcfdc 100755 (executable)
--- a/reserve/placerequest.pl
+++ b/reserve/placerequest.pl
@@ -92,7 +92,6 @@ if ($type eq 'str8' && $borrower){
                 $i2++;
             }
         }
-        my $const;
 
     if (defined $checkitem && $checkitem ne ''){
                my $item = GetItem($checkitem);