X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=members%2Fdeletemem.pl;h=a813cd68d71fd589f1d15b82c0a5b68a69b8fa51;hb=d944df2272b0fbed9f5a52136d60f4318186e8b9;hp=5d7746afc9a68c66d1442ea56a20fdd4eb95944c;hpb=2951d20c699b504447a9bb9bcbf044f56a9a3138;p=koha.git diff --git a/members/deletemem.pl b/members/deletemem.pl index 5d7746afc9..a813cd68d7 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,81 +17,110 @@ # 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::Output; -use C4::Circulation::Circ2; -#use C4::Acquisitions; 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 ($bor,$flags)=getpatroninformation(\%env, $member,''); +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("IndependantBranches")) { + 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 $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 ''){ - print $input->header; - print "
Items on Issue | $i |
Charges | $flags->{'CHARGES'}->{'message'} |
Guarantees |