Patch from Joe Atzberger to remove $Id$ and $Log$ from scripts
[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,$flags)=GetMemberDetails($member,'');
50 if (C4::Context->preference("IndependantBranches")) {
51         my $userenv = C4::Context->userenv;
52         unless ($userenv->{flags} == 1){
53                 unless ($userenv->{'branch'} eq $bor->{'branchcode'}){
54 #                       warn "user ".$userenv->{'branch'} ."borrower :". $bor->{'branchcode'};
55                         print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member");
56                         exit 1;
57                 }
58         }
59 }
60 my $dbh = C4::Context->dbh;
61 my $sth=$dbh->prepare("Select * from borrowers where guarantorid=?");
62 $sth->execute($member);
63 my $data=$sth->fetchrow_hashref;
64 $sth->finish;
65 if ($countissues > 0 or $flags->{'CHARGES'}  or $data->{'borrowernumber'}){
66
67         my ($template, $borrowernumber, $cookie)
68                 = get_template_and_user({template_name => "members/deletemem.tmpl",
69                                         query => $input,
70                                         type => "intranet",
71                                         authnotrequired => 0,
72                                         flagsrequired => {borrowers => 1},
73                                         debug => 1,
74                                         });
75         #   print $input->header;
76         $template->param(borrowernumber => $member);
77         if ($countissues >0) {
78                 $template->param(ItemsOnIssues => $countissues);
79         }
80         if ($flags->{'CHARGES'} ne '') {
81                 $template->param(charges => $flags->{'CHARGES'}->{'message'});
82         }
83         if ($data ne '') {
84                 $template->param(guarantees => 1);
85         }
86 output_html_with_http_headers $input, $cookie, $template->output;
87
88 } else {
89         MoveMemberToDeleted($member);
90         DelMember($member);
91         print $input->redirect("/cgi-bin/koha/members/members-home.pl");
92 }
93
94