X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=tools%2Fcleanborrowers.pl;h=add68a23bc1d8353df3be71ca61fb60eebca8c8f;hb=9d6d641d1f8b77271800f43bc027b651f9aea52b;hp=1afc3f9540685dfef41a4cf66bdaca68fb58cd90;hpb=af7e41d1142573666d302a8475274ea58e5c99f4;p=srvgit

diff --git a/tools/cleanborrowers.pl b/tools/cleanborrowers.pl
index 1afc3f9540..add68a23bc 100755
--- a/tools/cleanborrowers.pl
+++ b/tools/cleanborrowers.pl
@@ -34,16 +34,13 @@ This script allows to do 2 things.
 use Modern::Perl;
 
 use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Members;
-use C4::Circulation;    # AnonymiseIssueHistory.
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Members qw( GetBorrowersToExpunge );
 use Koha::DateUtils qw( dt_from_string output_pref );
 use Koha::Patron::Categories;
 use Koha::Patrons;
-use Date::Calc qw/Today Add_Delta_YM/;
-use Koha::Patrons;
-use Koha::List::Patron;
+use Koha::List::Patron qw( GetPatronLists );
 
 my $cgi = CGI->new;