@@ -, +, @@ tests --- members/member-picupload.pl | 8 ++++---- members/member.pl | 3 ++- t/00-testcritic.t | 2 +- 3 files changed, 7 insertions(+), 6 deletions(-) --- a/members/member-picupload.pl +++ a/members/member-picupload.pl @@ -59,13 +59,13 @@ if ($photo){ my $filename=$borrowernumber.'.jpg'; my $upload_filehandle = $input->upload("photo"); - open UPLOADFILE, ">$upload_dir/$filename"; - binmode UPLOADFILE; + open (my $upload_fh, '>', "$upload_dir/$filename"); + binmode $upload_fh; while ( <$upload_filehandle> ) { - print UPLOADFILE; + print $upload_fh; } - close UPLOADFILE; + close $upload_fh; } else { $template->param( --- a/members/member.pl +++ a/members/member.pl @@ -58,7 +58,8 @@ my $branches = GetBranches; my @branchloop; foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches) { - my $selected = 1 if $branches->{$_}->{branchcode} eq $$patron{branchcode}; + my $selected; + $selected = 1 if $branches->{$_}->{branchcode} eq $$patron{branchcode}; my %row = ( value => $_, selected => $selected, branchname => $branches->{$_}->{branchname}, --- a/t/00-testcritic.t +++ a/t/00-testcritic.t @@ -17,7 +17,7 @@ labels members misc offline_circ opac patroncards reports reserve reviews rotati serials sms suggestion t tags test tools virtualshelves Koha); my @dirs = qw( acqui admin authorities basket catalogue cataloguing circ debian errors labels - offline_circ reserve reviews rotating_collections serials sms virtualshelves Koha); + members offline_circ reserve reviews rotating_collections serials sms virtualshelves Koha misc); if ( not $ENV{TEST_QA} ) { my $msg = 'Author test. Set $ENV{TEST_QA} to a true value to run'; --