X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=members%2Fdeletemem.pl;h=a6143b12b7d710feef4551067a284633cd148d45;hb=7baf02c263a627b1454577b3141a0af4b8f963d1;hp=b1ba709c65c0cef0dc30ca6e5548e393f47cb968;hpb=b06a289173d0f2e299b0c8652d59d47dc196062c;p=koha_fer diff --git a/members/deletemem.pl b/members/deletemem.pl index b1ba709c65..a6143b12b7 100755 --- a/members/deletemem.pl +++ b/members/deletemem.pl @@ -30,6 +30,7 @@ use C4::Output; use C4::Auth; use C4::Members; use C4::Branch; # GetBranches +use C4::VirtualShelves (); #no import my $input = new CGI; @@ -65,9 +66,9 @@ if ($bor->{category_type} eq "S") { } } -if (C4::Context->preference("IndependantBranches")) { +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; @@ -82,7 +83,7 @@ my $data=$sth->fetchrow_hashref; if ($countissues > 0 or $flags->{'CHARGES'} or $data->{'borrowernumber'}){ # print $input->header; - my ($picture, $dberror) = GetPatronImage($bor->{'cardnumber'}); + my ($picture, $dberror) = GetPatronImage($bor->{'borrowernumber'}); $template->param( picture => 1 ) if $picture; $template->param(borrowernumber => $member, @@ -102,6 +103,8 @@ if ($countissues > 0 or $flags->{'CHARGES'} or $data->{'borrowernumber'}){ email => $bor->{'email'}, branchcode => $bor->{'branchcode'}, branchname => GetBranchName($bor->{'branchcode'}), + activeBorrowerRelationship => (C4::Context->preference('borrowerRelationship') ne ''), + RoutingSerials => C4::Context->preference('RoutingSerials'), ); if ($countissues >0) { $template->param(ItemsOnIssues => $countissues); @@ -116,6 +119,7 @@ output_html_with_http_headers $input, $cookie, $template->output; } else { MoveMemberToDeleted($member); + C4::VirtualShelves::HandleDelBorrower($member); DelMember($member); print $input->redirect("/cgi-bin/koha/members/members-home.pl"); }