- 

#!/usr/bin/perl

# This file is part of Koha.

#

# Copyright 2012 Bywater Solutions

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 2 of the License, or (at your option) any later

# version.

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with this program; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

BEGIN {

    # find Koha's Perl modules

    # test carefully before changing this

    use FindBin;

    eval { require "$FindBin::Bin/kohalib.pl" };

}

use C4::Members;

use C4::VirtualShelves;

use Getopt::Long;

my ( $help, $confirm, $file, $verbose, $delete );

GetOptions(

    'c|confirm' => \$confirm,

    'h|help'    => \$help,

    'v|verbose' => \$verbose,

    'd|delete'  => \$delete,

    'f|file:s'  => \$file,

);

if ($help) {

    print <<EOF

This script is used to batch delete borrowers from Koha.

It accepts a file with a list of borrower cardnumbers to

be deleted, one per line.

Example: batch_delete_borrowers.pl -c -v --file borrowers.list

Options:

  --confirm -c If this option is not passed, nothing will be deleted

  --verbose -v Verbose, print output

  --help -h    Display help

  --delete -d  Delete the borrower completely, rather than moving

               the borrower to the deletedborrowers table

  --file -f    File of borrower cardnumbers to be deleted

EOF

      ;

    exit;

}

print "\nRunning in test mode, no borrowers will be deleted\n\n"

  unless ($confirm);

open( FILE, $file ) or die "Couldn't open file: $!";

while (<FILE>) {

    chomp($_);

    print "Working on cardnumber $_ \n" if ($verbose);

    my $borrower = GetMember( cardnumber => $_ );

    my $borrowernumber = $borrower->{'borrowernumber'};

    print "Deleting borrower $borrower->{firstname} $borrower->{surname} ( $borrower->{cardnumber} ) ... " if ($verbose);

    if ($confirm) {

        MoveMemberToDeleted($borrowernumber) unless ($delete);

        C4::VirtualShelves::HandleDelBorrower($borrowernumber);

        DelMember($borrowernumber);

    }

    print "deleted.\n\n" if ($verbose);

}