Bug 11037: remove non-existent routines from Biblio's @EXPORT

[koha.git] / members / setdebar.pl

diff --git a/members/setdebar.pl b/members/setdebar.pl
index bc0bafb..280ffaa 100755 (executable)
--- a/members/setdebar.pl
+++ b/members/setdebar.pl
@@ -36,10 +36,7 @@ use C4::Auth;
 
 my $input = new CGI;
 
-my $flagsrequired;
-$flagsrequired->{borrowers} = 1;
-my ( $loggedinuser, $cookie, $sessionID ) =
-  checkauth( $input, 0, $flagsrequired );
+checkauth( $input, 0, { borrowers => 1 }, 'intranet' );
 
 my $borrowernumber = $input->param('borrowernumber');