From 89e0f794885e572046923b0041671d6e96f4c36f Mon Sep 17 00:00:00 2001
From: Ivan Brown <I.Brown@littleover.derby.sch.uk>
Date: Tue, 25 Sep 2012 15:57:43 +0100
Subject: [PATCH] Bug 7643 - Can't upload and import zipped file of patron images
Content-Type: text/plain; charset="utf-8"

Fixed problem with re-declaration of $filesuffix

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 tools/picture-upload.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/tools/picture-upload.pl b/tools/picture-upload.pl
index bfb233e..4507fa1 100755
--- a/tools/picture-upload.pl
+++ b/tools/picture-upload.pl
@@ -80,7 +80,7 @@ if ( ($op eq 'Upload') && $uploadfile ) {       # Case is important in these ope
     $debug and warn "dirname = $dirname";
     my $filesuffix;
     if ( $uploadfilename =~ m/(\..+)$/i ) {
-        my $filesuffix = $1;
+        $filesuffix = $1;
     }
     ( $tfh, $tempfile ) = File::Temp::tempfile( SUFFIX => $filesuffix, UNLINK => 1 );
     $debug and warn "tempfile = $tempfile";
-- 
1.7.2.5