From 81445f9e889c5f87a922fbfd7e7156d220a62cd7 Mon Sep 17 00:00:00 2001 From: Mark Tompsett 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. Signed-off-by: Bernardo Gonzalez Kriegel Image uploaded without problems No koha-qa errors Signed-off-by: Katrin Fischer Signed-off-by: Tomas Cohen Arazi --- 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 82d09bc043..b7d99d7940 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 { -- 2.39.2