Able to call haspermission w/o $dbh, and add error msg on deletemember.
[wip/koha-chris_n.git] / members / deletemem.pl
1 #!/usr/bin/perl
2
3
4 #script to delete items
5 #written 2/5/00
6 #by chris@katipo.co.nz
7
8
9 # Copyright 2000-2002 Katipo Communications
10 #
11 # This file is part of Koha.
12 #
13 # Koha is free software; you can redistribute it and/or modify it under the
14 # terms of the GNU General Public License as published by the Free Software
15 # Foundation; either version 2 of the License, or (at your option) any later
16 # version.
17 #
18 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
19 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
20 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
21 #
22 # You should have received a copy of the GNU General Public License along with
23 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
24 # Suite 330, Boston, MA  02111-1307 USA
25
26 use strict;
27
28 use CGI;
29 use C4::Context;
30 use C4::Output;
31 use C4::Auth;
32 use C4::Members;
33
34
35 my $input = new CGI;
36
37 my $flagsrequired;
38 $flagsrequired->{borrowers}=1;
39 my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
40
41
42
43 #print $input->header;
44 my $member=$input->param('member');
45 my %member2;
46 $member2{'borrowernumber'}=$member;
47 my ($countissues,$issues)=GetPendingIssues($member);
48
49 my ($bor)=GetMemberDetails($member,'');
50 my $flags=$bor->{flags};
51
52 my $userenv = C4::Context->userenv;
53 if(C4::Auth::haspermission(undef,$userenv->{'id'},{'staffaccess'=>1})) {
54   print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE");
55         exit 1;
56 }
57
58 if (C4::Context->preference("IndependantBranches")) {
59         unless ($userenv->{flags} == 1){
60                 unless ($userenv->{'branch'} eq $bor->{'branchcode'}){
61 #                       warn "user ".$userenv->{'branch'} ."borrower :". $bor->{'branchcode'};
62                         print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE");
63                         exit 1;
64                 }
65         }
66 }
67 my $dbh = C4::Context->dbh;
68 my $sth=$dbh->prepare("Select * from borrowers where guarantorid=?");
69 $sth->execute($member);
70 my $data=$sth->fetchrow_hashref;
71 $sth->finish;
72 if ($countissues > 0 or $flags->{'CHARGES'}  or $data->{'borrowernumber'}){
73
74         my ($template, $borrowernumber, $cookie)
75                 = get_template_and_user({template_name => "members/deletemem.tmpl",
76                                         query => $input,
77                                         type => "intranet",
78                                         authnotrequired => 0,
79                                         flagsrequired => {borrowers => 1},
80                                         debug => 1,
81                                         });
82         #   print $input->header;
83         $template->param(borrowernumber => $member);
84         if ($countissues >0) {
85                 $template->param(ItemsOnIssues => $countissues);
86         }
87         if ($flags->{'CHARGES'} ne '') {
88                 $template->param(charges => $flags->{'CHARGES'}->{'amount'});
89         }
90         if ($data ne '') {
91                 $template->param(guarantees => 1);
92         }
93 output_html_with_http_headers $input, $cookie, $template->output;
94
95 } else {
96         MoveMemberToDeleted($member);
97         DelMember($member);
98         print $input->redirect("/cgi-bin/koha/members/members-home.pl");
99 }
100
101