3 #script to delete items
7 # Copyright 2000-2002 Katipo Communications
9 # This file is part of Koha.
11 # Koha is free software; you can redistribute it and/or modify it
12 # under the terms of the GNU General Public License as published by
13 # the Free Software Foundation; either version 3 of the License, or
14 # (at your option) any later version.
16 # Koha is distributed in the hope that it will be useful, but
17 # WITHOUT ANY WARRANTY; without even the implied warranty of
18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 # GNU General Public License for more details.
21 # You should have received a copy of the GNU General Public License
22 # along with Koha; if not, see <http://www.gnu.org/licenses>.
25 #use warnings; FIXME - Bug 2505
36 if ( C4
::Context
->preference('NorwegianPatronDBEnable') && C4
::Context
->preference('NorwegianPatronDBEnable') == 1 ) {
37 load Koha
::NorwegianPatronDB
, qw( NLMarkForDeletion NLSync );
42 my ($template, $borrowernumber, $cookie)
43 = get_template_and_user
({template_name
=> "members/deletemem.tt",
47 flagsrequired
=> {borrowers
=> 1},
51 #print $input->header;
52 my $member = $input->param('member');
54 #Do not delete yourself...
55 if ($borrowernumber == $member ) {
56 print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_YOURSELF");
57 exit 0; # Exit without error
60 # Handle deletion from the Norwegian national patron database, if it is enabled
61 # If the "deletelocal" parameter is set to "false", the regular deletion will be
62 # short circuited, and only a deletion from the national database can be carried
63 # out. If "deletelocal" is set to "true", or not set to anything normal
64 # deletion will be done.
65 my $deletelocal = $input->param('deletelocal') eq 'false' ?
0 : 1; # Deleting locally is the default
66 if ( C4
::Context
->preference('NorwegianPatronDBEnable') && C4
::Context
->preference('NorwegianPatronDBEnable') == 1 ) {
67 if ( $input->param('deleteremote') eq 'true' ) {
68 # Mark for deletion, then try a live sync
69 NLMarkForDeletion
( $member );
70 NLSync
({ 'borrowernumber' => $member });
74 my $issues = GetPendingIssues
($member); # FIXME: wasteful call when really, we only want the count
75 my $countissues = scalar(@
$issues);
77 my $patron = Koha
::Patrons
->find( $member );
78 my $flags = C4
::Members
::patronflags
( $patron->unblessed );
79 my $userenv = C4
::Context
->userenv;
83 if ($patron->category->category_type eq "S") {
84 unless(C4
::Auth
::haspermission
($userenv->{'id'},{'staffaccess'=>1})) {
85 print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_STAFF");
86 exit 0; # Exit without error
89 unless(C4
::Auth
::haspermission
($userenv->{'id'},{'borrowers'=>1})) {
90 print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE");
91 exit 0; # Exit without error
95 if (C4
::Context
->preference("IndependentBranches")) {
96 my $userenv = C4
::Context
->userenv;
97 if ( !C4
::Context
->IsSuperLibrarian() && $patron->branchcode){
98 unless ($userenv->{branch
} eq $patron->branchcode){
99 print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_OTHERLIBRARY");
100 exit 0; # Exit without error
105 my $op = $input->param('op') || 'delete_confirm';
106 my $dbh = C4
::Context
->dbh;
107 my $is_guarantor = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers WHERE guarantorid=?", undef, $member);
108 if ( $op eq 'delete_confirm' or $countissues > 0 or $flags->{'CHARGES'} or $is_guarantor or $deletelocal == 0) {
109 $template->param( picture
=> 1 ) if $patron->image;
111 $template->param( adultborrower
=> 1 ) if $patron->category->category_type =~ /^(A|I)$/;
114 # FIXME The patron object should be passed to the template
115 borrowernumber
=> $patron->borrowernumber,
116 surname
=> $patron->surname,
117 title
=> $patron->title,
118 cardnumber
=> $patron->cardnumber,
119 firstname
=> $patron->firstname,
120 categorycode
=> $patron->categorycode,
121 category_type
=> $patron->category->category_type,
122 categoryname
=> $patron->category->description,
123 address
=> $patron->address,
124 address2
=> $patron->address2,
125 city
=> $patron->city,
126 zipcode
=> $patron->zipcode,
127 country
=> $patron->country,
128 phone
=> $patron->phone,
129 email
=> $patron->email,
130 branchcode
=> $patron->branchcode,
131 RoutingSerials
=> C4
::Context
->preference('RoutingSerials'),
133 if ($countissues >0) {
134 $template->param(ItemsOnIssues
=> $countissues);
136 if ($flags->{'CHARGES'} ne '') {
137 $template->param(charges
=> $flags->{'CHARGES'}->{'amount'});
140 $template->param(guarantees
=> 1);
142 if ($deletelocal == 0) {
143 $template->param(keeplocal
=> 1);
145 # This is silly written but reflect the same conditions as above
146 if ( not $countissues > 0 and not $flags->{CHARGES
} ne '' and not $is_guarantor and not $deletelocal == 0 ) {
148 op
=> 'delete_confirm',
149 csrf_token
=> Koha
::Token
->new->generate_csrf({ session_id
=> scalar $input->cookie('CGISESSID') }),
152 } elsif ( $op eq 'delete_confirmed' ) {
154 die "Wrong CSRF token"
155 unless Koha
::Token
->new->check_csrf( {
156 session_id
=> $input->cookie('CGISESSID'),
157 token
=> scalar $input->param('csrf_token'),
159 my $patron = Koha
::Patrons
->find( $member );
160 $patron->move_to_deleted;
162 # TODO Tell the user everything went ok
163 print $input->redirect("/cgi-bin/koha/members/members-home.pl");
164 exit 0; # Exit without error
167 output_html_with_http_headers
$input, $cookie, $template->output;