Lines 38-50
use Koha::Patron::Categories;
Link Here
|
38 |
|
38 |
|
39 |
my $input = CGI->new; |
39 |
my $input = CGI->new; |
40 |
|
40 |
|
41 |
my ($template, $loggedinuser, $cookie) |
41 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
42 |
= get_template_and_user({template_name => "members/deletemem.tt", |
42 |
{ template_name => "members/deletemem.tt", |
43 |
query => $input, |
43 |
query => $input, |
44 |
type => "intranet", |
44 |
type => "intranet", |
45 |
flagsrequired => {borrowers => 'edit_borrowers'}, |
45 |
flagsrequired => { borrowers => 'delete_borrowers' }, |
46 |
debug => 1, |
46 |
debug => 1, |
47 |
}); |
47 |
} |
|
|
48 |
); |
48 |
|
49 |
|
49 |
#print $input->header; |
50 |
#print $input->header; |
50 |
my $member = $input->param('member'); |
51 |
my $member = $input->param('member'); |
Lines 70-76
if ($patron->category->category_type eq "S") {
Link Here
|
70 |
exit 0; # Exit without error |
71 |
exit 0; # Exit without error |
71 |
} |
72 |
} |
72 |
} else { |
73 |
} else { |
73 |
unless(C4::Auth::haspermission($userenv->{'id'},{'borrowers'=>'edit_borrowers'})) { |
74 |
unless(C4::Auth::haspermission($userenv->{'id'},{'borrowers'=>'delete_borrowers'})) { |
74 |
print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE"); |
75 |
print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE"); |
75 |
exit 0; # Exit without error |
76 |
exit 0; # Exit without error |
76 |
} |
77 |
} |
77 |
- |
|
|