Bug 32101: Add padding to floating toolbars

[koha-ffzg.git] / members / setstatus.pl

diff --git a/members/setstatus.pl b/members/setstatus.pl
index a98d555..83ef159 100755 (executable)
--- a/members/setstatus.pl
+++ b/members/setstatus.pl
@@ -26,13 +26,13 @@
 use Modern::Perl;
 
 use CGI qw ( -utf8 );
+use C4::Auth qw( checkauth );
 use C4::Context;
 use C4::Members;
-use C4::Auth;
 use Koha::Patrons;
 
 
-my $input = new CGI;
+my $input = CGI->new;
 
 my ( $loggedinuserid ) = checkauth($input, 0, { borrowers => 'edit_borrowers' }, 'intranet');