From d011d00562183e9c41836c6ab4f290769c54a828 Mon Sep 17 00:00:00 2001
From: Mark Tompsett <mtompset@hotmail.com>
Date: Sun, 26 Oct 2014 22:43:08 -0400
Subject: [PATCH] Bug 9312: Resolve error triggered by mutli-type return
 value.

$results is 1 upon success or a hash on failure.
Rather than check %$results || %error, I changed it to
$results!=1 || %error. Strangely, this works without
messy warnings. I believe this resolves the problem Katrin
mentions in comment #43.

TEST PLAN
---------
0) Make sure the system preference patronimages is set to Allow.
1) Apply all the patches
2) Login to staff client
3) Tools -> Upload patron images (it's in the bottom left)
4) Choose an image file, browse for a photo, enter a patron #.
5) Click Upload
6) Click the card number link
   -- the uploaded photo should be visible on the left side of
      the screen.
7) Run koha qa test tools.
---
 tools/picture-upload.pl |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tools/picture-upload.pl b/tools/picture-upload.pl
index 82d09bc..b7d99d7 100755
--- a/tools/picture-upload.pl
+++ b/tools/picture-upload.pl
@@ -74,8 +74,8 @@ $debug and warn "Operation requested: $op";
 
 my ( $total, $handled, @counts, $tempfile, $tfh, %errors );
 
+# Case is important in these operational values as the template must use case to be visually pleasing!
 if ( ( $op eq 'Upload' ) && $uploadfile ) {
-    # Case is important in these operational values as the template must use case to be visually pleasing!
     my $dirname = File::Temp::tempdir( CLEANUP => 1 );
     $debug and warn "dirname = $dirname";
     my $filesuffix;
@@ -129,11 +129,11 @@ if ( ( $op eq 'Upload' ) && $uploadfile ) {
         #if ($filetype eq 'zip' )
         $results = handle_dir( $dirname, $filesuffix, $template, $cardnumber,
             $tempfile );
-        $handled = 1;
+        $handled++ if $results == 1;
         $total   = 1;
     }
 
-    if ( %$results || %errors ) {
+    if ( $results!=1 || %errors ) {
         $template->param( ERRORS => [$results] );
     }
     else {
-- 
1.7.9.5