X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=members%2Fdeletemem.pl;h=6b99cb364f873d1a4b78256ec7740b918a670617;hb=2249ee1216ed004e61a34bc821d216f3471ef87b;hp=e4b2bae0acfe789d100dfeb1dcfeda0cb5328b9f;hpb=6763e2a7643d4cc3ca4b17e7d05b3a2c472bd3ea;p=koha_fer diff --git a/members/deletemem.pl b/members/deletemem.pl index e4b2bae0ac..6b99cb364f 100755 --- a/members/deletemem.pl +++ b/members/deletemem.pl @@ -1,12 +1,9 @@ #!/usr/bin/perl -# $Id$ - #script to delete items #written 2/5/00 #by chris@katipo.co.nz - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -20,99 +17,111 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; +#use warnings; FIXME - Bug 2505 use CGI; use C4::Context; -use C4::Search; -use C4::Interface::CGI::Output; use C4::Output; -use C4::Circulation::Circ2; use C4::Auth; - +use C4::Members; +use C4::Branch; # GetBranches +use C4::VirtualShelves (); #no import my $input = new CGI; -my $flagsrequired; -$flagsrequired->{borrower}=1; -my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired); - - +my ($template, $borrowernumber, $cookie) + = get_template_and_user({template_name => "members/deletemem.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {borrowers => 1}, + debug => 1, + }); #print $input->header; my $member=$input->param('member'); -my %env; -$env{'nottodayissues'}=1; -my %member2; -$member2{'borrowernumber'}=$member; -my $issues=currentissues(\%env,\%member2); -my $i=0; -foreach (sort keys %$issues) { - $i++; +my $issues = GetPendingIssues($member); # FIXME: wasteful call when really, we only want the count +my $countissues = scalar(@$issues); + +my ($bor)=GetMemberDetails($member,''); +my $flags=$bor->{flags}; +my $userenv = C4::Context->userenv; + + + +if ($bor->{category_type} eq "S") { + unless(C4::Auth::haspermission($userenv->{'id'},{'staffaccess'=>1})) { + print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_STAFF"); + exit 1; + } +} else { + unless(C4::Auth::haspermission($userenv->{'id'},{'borrowers'=>1})) { + print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE"); + exit 1; + } +} + +if (C4::Context->preference("IndependentBranches")) { + my $userenv = C4::Context->userenv; + if (($userenv->{flags} % 2 != 1) && $bor->{'branchcode'}){ + unless ($userenv->{branch} eq $bor->{'branchcode'}){ + print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_OTHERLIBRARY"); + exit; + } + } } -my ($bor,$flags)=getpatroninformation(\%env, $member,''); + my $dbh = C4::Context->dbh; -my $sth=$dbh->prepare("Select * from borrowers where guarantor=?"); +my $sth=$dbh->prepare("Select * from borrowers where guarantorid=?"); $sth->execute($member); my $data=$sth->fetchrow_hashref; -$sth->finish; - - -if ($i > 0 || $flags->{'CHARGES'} ne '' || $data ne ''){ - my ($template, $borrowernumber, $cookie) - = get_template_and_user({template_name => "members/deletemem.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {circulate => 1}, - debug => 1, - }); - # print $input->header; - if ($i >0) { - $template->param(ItemsOnIssues => $i); - } - if ($flags->{'CHARGES'} ne '') { - $template->param(charges => $flags->{'CHARGES'}->{'message'}); - } - if ($data ne '') { - $template->param(guarantees => 1); - } -# print "
Items on Issue | $i |
Charges | $flags->{'CHARGES'}->{'message'} |
Guarantees |