Bug 17600: Standardize our EXPORT_OK

[srvgit] / serials / viewalerts.pl

diff --git a/serials/viewalerts.pl b/serials/viewalerts.pl
index 39539e1..bb356c6 100755 (executable)
--- a/serials/viewalerts.pl
+++ b/serials/viewalerts.pl
@@ -20,21 +20,19 @@
 
 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::Output qw( output_html_with_http_headers );
 
 use Koha::Subscriptions;
 
-my $input = new CGI;
+my $input = CGI->new;
 
 my ($template, $loggedinuser, $cookie)
     = get_template_and_user({template_name => 'serials/viewalerts.tt',
                  query => $input,
                  type => "intranet",
-                 authnotrequired => 0,
                  flagsrequired => {serials => '*'},
-                 debug => 1,
                  });
 
 my $subscriptionid = $input->param('subscriptionid');