Bug 31051: (QA follow-up) Simplify savings wording for reading history

[srvgit] / authorities / export.pl

diff --git a/authorities/export.pl b/authorities/export.pl
index ee21e1e..0703da8 100755 (executable)
--- a/authorities/export.pl
+++ b/authorities/export.pl
@@ -2,9 +2,9 @@
 use Modern::Perl;
 
 use C4::Record;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
 use C4::Output;
-use C4::AuthoritiesMarc;
+use C4::AuthoritiesMarc qw( GetAuthority );
 use CGI qw ( -utf8 );
 
 my $query = CGI->new;
@@ -14,7 +14,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         query           => $query,
         type            => "intranet",
         flagsrequired   => { catalogue => 1 },
-        debug           => 1,
     }
 );