From 193b4f288386802dc834161043ec0851b3342058 Mon Sep 17 00:00:00 2001
From: Colin Campbell <colin.campbell@ptfs-europe.com>
Date: Wed, 19 May 2010 10:25:08 +0100
Subject: [PATCH] Bug 4517 - add authentication to reorder_members.pl

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---
 serials/reorder_members.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/serials/reorder_members.pl b/serials/reorder_members.pl
index 66d4ab2f17..28175fb2b4 100755
--- 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(