members/deletemem.pl

   1 #!/usr/bin/perl
   2
   3 #script to delete items
   4 #written 2/5/00
   5 #by chris@katipo.co.nz
   6
   7 # Copyright 2000-2002 Katipo Communications
   8 #
   9 # This file is part of Koha.
  10 #
  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.
  15 #
  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.
  20 #
  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>.
  23
  24 use Modern::Perl;
  25
  26 use CGI qw ( -utf8 );
  27
  28 use Try::Tiny qw( catch try );
  29
  30 use C4::Context;
  31 use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
  32 use C4::Auth qw( get_template_and_user );
  33 use Koha::Patrons;
  34 use Koha::Token;
  35 use Koha::Patron::Categories;
  36 use Koha::Suggestions;
  37
  38 my $input = CGI->new;
  39
  40 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
  41     {   template_name => "members/deletemem.tt",
  42         query         => $input,
  43         type          => "intranet",
  44         flagsrequired => { borrowers => 'delete_borrowers' },
  45     }
  46 );
  47
  48 #print $input->header;
  49 my $member       = $input->param('member');
  50
  51 #Do not delete yourself...
  52 if ( $loggedinuser == $member ) {
  53     print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_YOURSELF");
  54     exit 0; # Exit without error
  55 }
  56
  57 my $logged_in_user = Koha::Patrons->find( $loggedinuser );
  58 my $patron         = Koha::Patrons->find( $member );
  59 output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
  60
  61 my $debits = $patron->account->outstanding_debits->total_outstanding;
  62 my $credits = abs $patron->account->outstanding_credits->total_outstanding;
  63 my $countissues = $patron->checkouts->count;
  64 my $userenv = C4::Context->userenv;
  65
  66 if ($patron->category->category_type eq "S") {
  67     unless(C4::Auth::haspermission($userenv->{'id'},{'staffaccess'=>1})) {
  68         print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_STAFF");
  69         exit 0; # Exit without error
  70     }
  71 } else {
  72     unless(C4::Auth::haspermission($userenv->{'id'},{'borrowers'=>'delete_borrowers'})) {
  73         print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE");
  74         exit 0; # Exit without error
  75     }
  76 }
  77
  78 if (C4::Context->preference("IndependentBranches")) {
  79     my $userenv = C4::Context->userenv;
  80     if ( !C4::Context->IsSuperLibrarian() && $patron->branchcode){
  81         unless ($userenv->{branch} eq $patron->branchcode){
  82             print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_OTHERLIBRARY");
  83             exit 0; # Exit without error
  84         }
  85     }
  86 }
  87
  88 if ( my $anonymous_patron = C4::Context->preference("AnonymousPatron") ) {
  89     if ( $patron->id eq $anonymous_patron ) {
  90         print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_ANONYMOUS_PATRON");
  91         exit 0;    # Exit without error
  92     }
  93 }
  94
  95 my $op = $input->param('op') || 'delete_confirm';
  96 my $dbh = C4::Context->dbh;
  97 my $is_guarantor = $patron->guarantee_relationships->count;
  98 my $countholds = $dbh->selectrow_array("SELECT COUNT(*) FROM reserves WHERE borrowernumber=?", undef, $member);
  99
 100 # Add warning if patron has pending suggestions
 101 $template->param(
 102     pending_suggestions => Koha::Suggestions->search({ suggestedby => $member, STATUS => 'ASKED' })->count,
 103 );
 104
 105 $template->param(
 106     patron        => $patron,
 107     ItemsOnIssues => $countissues,
 108     debits        => $debits,
 109     credits       => $credits,
 110     is_guarantor  => $is_guarantor,
 111     ItemsOnHold   => $countholds,
 112 );
 113
 114 if ( $op eq 'delete_confirm' or $countissues > 0 or $debits or $is_guarantor ) {
 115     $template->param(
 116         op         => 'delete_confirm',
 117         csrf_token => Koha::Token->new->generate_csrf({ session_id => scalar $input->cookie('CGISESSID') }),
 118     );
 119
 120 } elsif ( $op eq 'delete_confirmed' ) {
 121     output_and_exit( $input, $cookie, $template, 'wrong_csrf_token' )
 122         unless Koha::Token->new->check_csrf( {
 123             session_id => $input->cookie('CGISESSID'),
 124             token  => scalar $input->param('csrf_token'),
 125         });
 126
 127     my $patron = Koha::Patrons->find( $member );
 128
 129     try {
 130         my $schema = Koha::Database->new->schema;
 131         $schema->txn_do(
 132             sub {
 133                 $patron->move_to_deleted;
 134                 $patron->delete;
 135                 print $input->redirect( "/cgi-bin/koha/members/members-home.pl" );
 136             }
 137         );
 138     }
 139     catch {
 140         if ( $_->isa('Koha::Exceptions::Patron::FailedDeleteAnonymousPatron') ) {
 141             print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_ANONYMOUS_PATRON");
 142         }
 143         else {
 144             $_->rethrow;
 145         }
 146     };
 147     # TODO Tell the user everything went ok
 148     exit 0; # Exit without error
 149 }
 150
 151 output_html_with_http_headers $input, $cookie, $template->output;