projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 10729: Add phrases configuration for ICU
[koha_fer]
/
members
/
deletemem.pl
diff --git
a/members/deletemem.pl
b/members/deletemem.pl
index
ef6ba01
..
a6143b1
100755
(executable)
--- a/
members/deletemem.pl
+++ b/
members/deletemem.pl
@@
-68,7
+68,7
@@
if ($bor->{category_type} eq "S") {
if (C4::Context->preference("IndependentBranches")) {
my $userenv = C4::Context->userenv;
if (C4::Context->preference("IndependentBranches")) {
my $userenv = C4::Context->userenv;
- if (
($userenv->{flags} % 2 != 1
) && $bor->{'branchcode'}){
+ if (
!C4::Context->IsSuperLibrarian(
) && $bor->{'branchcode'}){
unless ($userenv->{branch} eq $bor->{'branchcode'}){
print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_OTHERLIBRARY");
exit;
unless ($userenv->{branch} eq $bor->{'branchcode'}){
print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_OTHERLIBRARY");
exit;
@@
-83,7
+83,7
@@
my $data=$sth->fetchrow_hashref;
if ($countissues > 0 or $flags->{'CHARGES'} or $data->{'borrowernumber'}){
# print $input->header;
if ($countissues > 0 or $flags->{'CHARGES'} or $data->{'borrowernumber'}){
# print $input->header;
- my ($picture, $dberror) = GetPatronImage($bor->{'
card
number'});
+ my ($picture, $dberror) = GetPatronImage($bor->{'
borrower
number'});
$template->param( picture => 1 ) if $picture;
$template->param(borrowernumber => $member,
$template->param( picture => 1 ) if $picture;
$template->param(borrowernumber => $member,