Bug 4517 - add authentication to reorder_members.pl

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/serials/reorder_members.pl b/serials/reorder_members.pl
index 66d4ab2..28175fb 100755 (executable)
--- a/serials/reorder_members.pl
+++ b/serials/reorder_members.pl
@@ -21,12 +21,17 @@
 use strict;
 use warnings;
 use CGI;
+use C4::Auth qw( checkauth );
+use C4::Serials qw( reorder_members );
 
 my $query          = CGI->new;
 my $subscriptionid = $query->param('subscriptionid');
 my $routingid      = $query->param('routingid');
 my $rank           = $query->param('rank');
 
+my ( $user, $cookie, $sesion_id, $flags ) =
+  checkauth( $query, 0, { serials => 1 }, 'intranet' );
+
 reorder_members( $subscriptionid, $routingid, $rank );
 
 print $query->redirect(