View | Details | Raw Unified | Return to bug 6679
Collapse All | Expand All

(-)a/members/member-picupload.pl (-4 / +4 lines)
Lines 59-71 if ($photo){ Link Here
59
59
60
	my $filename=$borrowernumber.'.jpg';
60
	my $filename=$borrowernumber.'.jpg';
61
	my $upload_filehandle = $input->upload("photo");
61
	my $upload_filehandle = $input->upload("photo");
62
	open UPLOADFILE, ">$upload_dir/$filename";
62
	open (my $upload_fh, '>', "$upload_dir/$filename");
63
	binmode UPLOADFILE;
63
	binmode $upload_fh;
64
	while ( <$upload_filehandle> )
64
	while ( <$upload_filehandle> )
65
	{
65
	{
66
		print UPLOADFILE;
66
		print $upload_fh;
67
	}
67
	}
68
	close UPLOADFILE;
68
	close $upload_fh;
69
}
69
}
70
else {
70
else {
71
	$template->param(
71
	$template->param(
(-)a/members/member.pl (-1 / +2 lines)
Lines 58-64 my $branches = GetBranches; Link Here
58
my @branchloop;
58
my @branchloop;
59
59
60
foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches) {
60
foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches) {
61
  my $selected = 1 if $branches->{$_}->{branchcode} eq $$patron{branchcode};
61
  my $selected;
62
  $selected = 1 if $branches->{$_}->{branchcode} eq $$patron{branchcode};
62
  my %row = ( value => $_,
63
  my %row = ( value => $_,
63
        selected => $selected,
64
        selected => $selected,
64
        branchname => $branches->{$_}->{branchname},
65
        branchname => $branches->{$_}->{branchname},
(-)a/t/00-testcritic.t (-2 / +1 lines)
Lines 17-23 labels members misc offline_circ opac patroncards reports reserve reviews rotati Link Here
17
serials sms suggestion t tags test tools virtualshelves Koha);
17
serials sms suggestion t tags test tools virtualshelves Koha);
18
18
19
my @dirs = qw( acqui admin authorities basket catalogue cataloguing circ debian errors labels
19
my @dirs = qw( acqui admin authorities basket catalogue cataloguing circ debian errors labels
20
    offline_circ reserve reviews rotating_collections serials sms virtualshelves Koha);
20
    members offline_circ reserve reviews rotating_collections serials sms virtualshelves Koha misc);
21
21
22
if ( not $ENV{TEST_QA} ) {
22
if ( not $ENV{TEST_QA} ) {
23
    my $msg = 'Author test. Set $ENV{TEST_QA} to a true value to run';
23
    my $msg = 'Author test. Set $ENV{TEST_QA} to a true value to run';
24
- 

Return to bug 6679