From 08bb49116e2911eb4fce467f4fbb3f6bda59e93a Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Wed, 19 May 2010 10:19:56 +0100 Subject: [PATCH] Bug 4517 - add authentication to reorder_members.pl Content-Type: text/plain; charset="utf-8" --- serials/reorder_members.pl | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) diff --git a/serials/reorder_members.pl b/serials/reorder_members.pl index 66d4ab2..28175fb 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( -- 1.6.6.1