Bug 31051: DBRev 22.12.00.005

[koha-ffzg.git] / admin / matching-rules.pl

diff --git a/admin/matching-rules.pl b/admin/matching-rules.pl
index 3c30e94..b882712 100755 (executable)
--- a/admin/matching-rules.pl
+++ b/admin/matching-rules.pl
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/perl
 #
 # Copyright 2007 LibLime
 #
@@ -21,15 +21,14 @@
 use Modern::Perl;
 
 use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
 use C4::Context;
-use C4::Output;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers );
 use C4::Matcher qw/valid_normalization_routines/;
 
 my $script_name = "/cgi-bin/koha/admin/matching-rules.pl";
 
-our $input = new CGI;
+our $input = CGI->new;
 my $op = $input->param('op') || '';
 
 
@@ -37,9 +36,7 @@ my ($template, $loggedinuser, $cookie)
     = get_template_and_user({template_name => "admin/matching-rules.tt",
                  query => $input,
                  type => "intranet",
-                 authnotrequired => 0,
-                 flagsrequired => {parameters => 'parameters_remaining_permissions'},
-                 debug => 1,
+                 flagsrequired => { parameters => 'manage_matching_rules' },
                  });
 
 $template->param(script_name => $script_name);