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     );
 118
 119 } elsif ( $op eq 'delete_confirmed' ) {
 120     output_and_exit( $input, $cookie, $template, 'wrong_csrf_token' )
 121         unless Koha::Token->new->check_csrf( {
 122             session_id => $input->cookie('CGISESSID'),
 123             token  => scalar $input->param('csrf_token'),
 124         });
 125
 126     my $patron = Koha::Patrons->find( $member );
 127
 128     try {
 129         my $schema = Koha::Database->new->schema;
 130         $schema->txn_do(
 131             sub {
 132                 $patron->move_to_deleted;
 133                 $patron->delete;
 134                 print $input->redirect( "/cgi-bin/koha/members/members-home.pl" );
 135             }
 136         );
 137     }
 138     catch {
 139         if ( $_->isa('Koha::Exceptions::Patron::FailedDeleteAnonymousPatron') ) {
 140             print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_ANONYMOUS_PATRON");
 141         }
 142         else {
 143             $_->rethrow;
 144         }
 145     };
 146     # TODO Tell the user everything went ok
 147     exit 0; # Exit without error
 148 }
 149
 150 output_html_with_http_headers $input, $cookie, $template->output;