Adding in permission blocks for staff members as per previous commits.

[koha_gimpoz] / members / deletemem.pl

diff --git a/members/deletemem.pl b/members/deletemem.pl
index 0aa7e5c..a19fdc3 100755 (executable)
--- a/members/deletemem.pl
+++ b/members/deletemem.pl
@@ -51,12 +51,18 @@ my ($countissues,$issues)=GetPendingIssues($member);
 
 my ($bor)=GetMemberDetails($member,'');
 my $flags=$bor->{flags};
+
+my $userenv = C4::Context->userenv;
+if(C4::Auth::haspermission(undef,$userenv->{'id'},{'staffaccess'=>1})) {
+  print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE");
+       exit 1;
+}
+
 if (C4::Context->preference("IndependantBranches")) {
-       my $userenv = C4::Context->userenv;
        unless ($userenv->{flags} == 1){
                unless ($userenv->{'branch'} eq $bor->{'branchcode'}){
 #                      warn "user ".$userenv->{'branch'} ."borrower :". $bor->{'branchcode'};
-                       print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member");
+                       print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE");
                        exit 1;
                }
        }